Private Sub Form_Load()
 
Dim T1$, T2$, T3$
 
T1 = "Dies ist" & vbCr & "ein" & vbCr & "Beispieltext"
T2 = "ABC" & vbCr & "DEF" & vbCr & "GHI"
T3 = "123" & vbCr & "456" & vbCr & "789"
 
With Picture1
  .ScaleMode = vbPixels
  .BackColor = vbWhite
  .ForeColor = vbBlack
  .AutoRedraw = True
 
  Picture1.Print T1
 
  .ScaleLeft = -200
  .CurrentX = 0
  .CurrentY = 0
  Picture1.Print T2
 
  .ScaleLeft = -400
  .CurrentX = 0
  .CurrentY = 0
  Picture1.Print T3
 
End With
 
End Sub

Gruss,

Zardoz