Private Declare Function BitBlt Lib "gdi32" _
   (ByVal hDestDC As Long, ByVal x As Long, _
    ByVal y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal hSrcDC As Long, _
    ByVal xSrc As Long, ByVal ySrc As Long, _
    ByVal dwRop As Long) As Long
 
Private Declare Function StretchBlt Lib "gdi32" _
   (ByVal hdc As Long, ByVal x As Long, _
    ByVal y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal hSrcDC As Long, _
    ByVal xSrc As Long, ByVal ySrc As Long, _
    ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _
    ByVal dwRop As Long) As Long
 
Private Sub Form_Load()
    Picture2.Visible = False
    Picture2.ScaleMode = vbPixels
    Printer.ScaleMode = vbPixels
    With Picture2
       .Width = Printer.ScaleWidth
       .Height = Printer.ScaleHeight
   End With
End Sub

    ....Picture2.Print "CyberLord"
   .....Picture2.Print etcetc
 
   'Printer.EndDoc wurde entfernt!
 
   'Druckvorschau erstellen .....
   StretchBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, _
                                    Picture1.ScaleHeight, Picture2.hdc, 0, 0, 
                                    Picture2.ScaleWidth, Picture2.ScaleHeight, _
                                      vbSrcCopy

Private Sub cmdPrint_Click()
     'Das in Picture2 gepeichert Printbild in den Gerätekontext des Printers 
     ' kopieren ...
 
     BitBlt Printer.hDC,0,0,Printer.ScaleWidth, Printer.Scaleheight, _
               Picture2.hDC, 0,0 vbSrcCopy
 
     Printer.Print
     Printer.EndDoc  
End Sub