Option Explicit
Private Sub Command1_Click()
 
Printer.Print
PrintPicture Picture1.Picture, 0.3217
Printer.EndDoc
 
End Sub
 
Private Sub PrintPicture(Pic As StdPicture, ZoomFaktor As Double)
Dim x, y As Long
  Printer.Print
  Printer.PaintPicture Pic, 2400, 1000, Pic.Width * 0.3217, Pic.Height * _
    0.3217, 0, 0, Pic.Width, Pic.Height
  '(2830 = 50mm   56,6 =1mm)   0.3217 =300dpi , 0.6434= 150dpi(Zoomfaktor)
  ' Zoomfaktor = 96,51 * dpi
Printer.CurrentX = 2830 ' 50mm
Printer.CurrentY = 2830 ' 50mm
Printer.Print Label1.Caption
End Sub