Printer.Print "Födelsedat:"; Tab; txtBirth
Printer.CurrentX = 1400
Printer.Print "Reg/Dat:"; Tab; txtSex
Printer.CurrentX = 1400
Printer.Print "Bildlänk:"; Tab; TxtPhoto

Printer.CurrentX = 1400
Printer.CurrentY = 4500

Printer.PaintPicture Form1.Image1, 1400, 4500 'Bild. Här är problemet.

'När det finns en bild att skriva ut går det bra.När det inte finns en bild
'och jag bara vill ha texten utskriven så kommer felhanteringen in.
'Hur skall jag skriva coden.
'Hjälp mig.

'K.J.

Printer.EndDoc

Hej
' (Printer.CurrentX = 1400 'Ta bort onödigt
' Printer.CurrentY = 4500)
On Error GoTo NoPicture
Printer.PaintPicture Form1.Image1, 1400, 4500 'Bild. Här är problemet.
PicOk:
Printer.EndDoc
Exit Sub
NoPicture:
Resume PicOk
End Sub

mvh
Sven

Tack Sven!

MVH Karl Jonsson

Hej igen
En sak till,rekommenderar att du använder som första rad
Printer.ScaleMode = 7 ' centimeter
Sedan kan du skriva dina X Y koordinater i cm tex.
Printer.CurrentX = 3.2
Fördel du kan lätt planera ditt A4 blad med hjälp av linjal.

mvh
Sven