Jag har en bild som är 205x45 pixlar stor. Jag skriver ut den med Printer.PaintPicture Picture1.Picture (på position 0, 0).
Hur gör jag sen för att få en text under bilden?
Jag har testat med att sätta CurrentY till 45 och till 45 * TwipsPerPixelY men i båda fallen kommer dom på bilden och inte under.

Thomas

Jag har hittat en standardmetod som funkar för mig

Printer.ScaleMode = 7
'ScaleMod = centimeter du kan enkelt planera med en linjal på A4
'******* Print Huvud ***********
Printer.PaintPicture Picture1.Picture, 2, 0.5, 3, 2
Printer.FontName = "Arial"
Printer.FontBold = True
Printer.CurrentX = 2: Printer.CurrentY = 2.5
Printer.FontSize = 16
Printer.Print "Text under bild"
'...............
'...............
Printer.EndDoc

Tackar, verkar fungera bra =)

Thomas

Alternativt kan du skriva så här.
<code>
Dim Left As Single
Dim Top As Single

Left = 0
Top = 0

Printer.PaintPicture Picture1.Picture, Left, Top
Printer.CurrentX = Left
Printer.CurrentY = Top + Printer.ScaleY(Picture1.Picture.Height) + Printer.TextHeight("")
Printer.Print "Text under bild"
Printer.EndDoc

</code>