Print et billede

her er lidt om printer:

http://hjem.get2net.dk/sjh/eksperten/frmPrint.Frm

Private Sub Command1_Click()
\'--------- Setup ---------
  Printer.ScaleMode = vbCentimeters \'ccm
  Printer.CurrentX = 0
  Printer.CurrentY = 0
  Printer.FontTransparent = True

\'vbPRPSA4 = 9 (A4, 210 x 297 mm)
  Printer.PaperSize = vbPRPSA4

\'vbPRDPSimplex = 1
\'vbPRDPHorizontal = 2
\'vbPRDPVertical = 3
  Printer.Duplex = 1

\'vbPRCMMonochrome = 1
\'vbPRCMColor = 2
  Printer.ColorMode = 1

  ccmLetf = 0.5 \'0.50 ccm
  ccmTop = 0.5 \'0.50 ccm
  ccmWidth = 7 \'7 ccm
  ccmHeight = 5 \'5 ccm
\'--------- Setup ---------

\'Start Printer
  Printer.PaintPicture Picture1.Picture, ccmLetf, ccmTop, ccmWidth, ccmHeight

\'Slut Printer
  Printer.EndDoc
End Sub

Private Sub Form_Load()
  Picture1.Picture = LoadPicture(\"C:\\Test.bmp\")
  Picture1.AutoSize = True
End Sub