Private Sub Command1_Click()
Dim xPos As Long
Dim yPos As Long
 
' Druckbeginn bei 2cm (links) und 1cm (oben):
 xPos = 20: yPos = 10
 
' Drucken der Grafik in Orginalgröße
Printer.Print ""
Printer.Print "Datei:" & frmMain.Text4.Text
Printer.PaintPicture frmMain.picChart, 20, 10, 100, 120
 
Printer.Print
 
 
'zusätzlich noch in der Größe 10x12 cm drucken
'Druckposition 11 cm (links), 15 cm (oben)
'PrintPicture frmMain.picChart.Picture, , , -200, 140
 
 
' Druckauftrag beenden
Printer.EndDoc