Need to print an image which is larger than the screen???

[robert10]

Hi,

Can someone please help me with finding some code to print an image which is larger than the screen?

I am trying to print a black background which is exactly A4 in height and width, yet even tho i pasted an image onto the form at that size, it gets cut off by the screen Because the screen isn't big enough.

I do not necessarily need to see it on screen properly, but i require it to print a black image 210mm wide and 297mm height.

Please help, its quite urgent??

Much Appreciated,
Robert

[albertw]

Hi,

Can someone please help me with finding some code to print an image which is larger than the screen?

I am trying to print a black background which is exactly A4 in height and width, yet even tho i pasted an image onto the form at that size, it gets cut off by the screen Because the screen isn't big enough.

I do not necessarily need to see it on screen properly, but i require it to print a black image 210mm wide and 297mm height.

Please help, its quite urgent??

Much Appreciated,
Robert

hi

this a nasty habbit of vb ..
try using the following code, note however that resolution is not as good as the printdoc method

you need to put a picturebox on your form (Pic1)
Flat, NoBorder
in this case Form1 is being printed, but you may use any object as long as the property hWnd exist.

 
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
 

 
    With Form1
    .pic1.Left = 0
    .pic1.Top = 0
    .pic1.Width = 12000
    .pic1.Height = 16500
    .pic1.AutoRedraw = True
    .pic1.ZOrder
    .Refresh
    rv = SendMessage(.hWnd, &HF, .pic1.hDC, 0)
    rv = SendMessage(.hWnd, &H317, .pic1.hDC, &H34&)
    .pic1.Picture = .pic1.Image
    .pic1.ZOrder
    Printer.Orientation = 1
    Printer.PaintPicture .pic1.Picture, 0, 400, Printer.Width, Printer.Height, 0, 0, .pic1.Width, .pic1.Height
   Printer.EndDoc