WITH PRINTER...image

[luca90]

pseudo code:

with printer
....
Printer.Print ""
        picBarCode.AutoRedraw = True
        Printer.PaintPicture picBarCode.Image, 0, 0, picBarCode.Width, picBarCode.Height
....
        Printer.EndDoc

    End With

when i print the doc the picBarCode, is printed on the top of document!, and not to the bottom...

note:
- picBarCode is a picturebox on form
- and i need to center orizonthal the image

[dilettante]

You told it to paint the picture at coordinates (0, 0) so it is doing as requested.

Centering is pretty easy. Use an X-offset value that is 0.5 * (DestWidth - PictureWidth).

[luca90]

You told it to paint the picture at coordinates (0, 0) so it is doing as requested.

Centering is pretty easy. Use an X-offset value that is 0.5 * (DestWidth - PictureWidth).

???
Example, please.

and....

how to the code know to print the image to the and of last line printed?

in effect, i have a similar code:

whith printer
...
Printer.Print "------------------------------------------------------------"
Printer.Print ""
Printer.Print "test1"
Printer.Print "test2"
Printer.Print "test3"
Printer.Print "..."
Printer.Print "this is last line"
<here i need to print the image

end with

note:
the number of line are variable

[Magic Ink]

Checkout the CurrentX, CurrentY Properties in VB help

[dilettante]

The PaintPicture() method has no relationship with CurrentX or CurrentY.

[SamOscarBrown]

luca---YOU do it...dile laid it out in pretty plain English...

[DataMiser]

The PaintPicture() method has no relationship with CurrentX or CurrentY.

But in theory you could retrieve the currentx and currenty and pass those to the paint picture function

[Magic Ink]

Dile
I was thinking about a line like

Printer.PaintPicture picBarCode.Image, Printer.CurrentX, Printer.CurrentY, picBarCode.Width, picBarCode.Height

From post #3 it looks like the OP wants the Picture printed after the last line of text.

[Argus19]

Top middle:

Printer.PaintPicture picBarCode.Image, (Printer.Width - picBarCode.ScaleWidth) / 2, 0, picBarCode.ScaleWidth, _
        picBarCode.ScaleHeight, 0, 0, picBarCode.ScaleWidth, picBarCode.ScaleHeight, vbSrcCopy

Bottom middle:

Printer.PaintPicture picBarCode.Image, (Printer.Width - picBarCode.ScaleWidth) / 2, (Printer.Height - picBarCode.ScaleHeight), _
picBarCode.ScaleWidth, picBarCode.ScaleHeight, 0, 0, picBarCode.ScaleWidth, picBarCode.ScaleHeight, vbSrcCopy

[dilettante]

From post #3 it looks like the OP wants the Picture printed after the last line of text.

Could be. I mostly got "please write this line of code for me" once again.

[SamOscarBrown]

Exactly, dile....that is why i posted #6!