Private Sub cmdPrint_Click()
 
Dim fmt As String
  Dim sRow As String
  Dim xPos As Long
  Dim I As Long
  Dim intProz As Integer
  Dim GridWidth As Long
  Dim ColWidth As Long
  Dim PageWidth As Long
  Dim sHeader As String
 
  Screen.MousePointer = 11
  With Printer
    .ScaleMode = 6    ' Maßeinheit "mm"
    .Orientation = 2    ' Querformat
    xPos = 20         ' 20mm Rand links
 
    .Font.Name = "Arial"
    .Font.Size = 12
 
    ' Listenbezeichnung
    .CurrentY = 10
    .CurrentX = xPos
    .Font.Bold = True
    Printer.Print DataGrid1.Caption + vbCrLf
 
'.....

Bis denne,

Maik