Printing ENTIRE form/Picture Box

[aa9gg]

Hi all...
Need to print the entire form to the printer. Mainly I need the contents of a picture box to print. Picture DOES NOT fit onto the screen and has scroll bar navigation. I need to print the entire thing, not just what is visible. I found this:

Private Sub print_Click()

Dim lWidth As Long, lHeight As Long

Me.Hide
Me.Height = 13080
Me.Width = 13800

Me.Move 0, 0
Me.Show

Printer.ScaleWidth = Me.Width
Printer.ScaleHeight = Me.Height

lWidth = Me.Width
lHeight = (Printer.ScaleWidth / Me.Width) * Me.Height

Clipboard.Clear
Call keybd_event(VK_MENU, 0, 0, 0)
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

DoEvents

Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
Printer.Print
Printer.PaintPicture Clipboard.GetData, 0, 0, lWidth, lHeight
Printer.EndDoc

End Sub

...I only get what is displayed, and sometimes some stuff from my desktop (screen shot?) What am I doing wrong?

[Hack]

You are not doing anything wrong...it is doing exactly what you are telling it to do...take a screenshot (i.e., what is visible) and send it to the printer.

[aa9gg]

Hmmm. So how do I dump the entire form to the printer then? Mainly I need the contents of a frame that contains a picturebox.

[RhinoBull]

What's in your picturebox? Image only or some other controls, etc?
Alternatively you can create some kind of report (DataReport, Crystal Reports, Active Reports, etc) so you can pass data only and print that instead.

[aa9gg]

What's in your picturebox? Image only or some other controls, etc?
Alternatively you can create some kind of report (DataReport, Crystal Reports, Active Reports, etc) so you can pass data only and print that instead.

The picture box is in a frame and contains a custom background image for a graph and there are some controls (actually shapes and text) in the frame too that overlay on the picture box to complete the "graph". So what I need is a way to print the entire contents of the frame keeping the same aspect ratio.

[westconn1]

here is an example from microsoft that shows how to print the form or window
http://support.microsoft.com/default...b;en-us;161299

[IHappenToBe]

Call keybd_event(VK_MENU, 0, 0, 0)
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

I get an error: "Sub or Function not defined"

[RhinoBull]

Those are windows api so you need to declare them:

Option Explicit

Private Const VK_MENU As Long = &H12
Private Const VK_SNAPSHOT As Long = &H2C

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Use declarations as is if you do it in the form or change scope to Public when declaring in the module.

[Spoo]

aa9

This might help

        PB1.Picture = PB1.Image
        ff = "d:\pb1023.bmp"
        SavePicture PB1.Picture, ff

It will save the contents of your PictureBox (here, named PB1) to a file.
Natch, change PB name and file name as required.
I'm not quite sure how to then physically print it.. hopefully you can figure that out ..

Spoo

[aa9gg]

here is an example from microsoft that shows how to print the form or window
http://support.microsoft.com/default...b;en-us;161299

Trying to use the printform feature of this code and am having issues.
I get a runtime error#13 "Type Mismatch" in this function at

Set CreateBitmapPicture = IPic

      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ' CreateBitmapPicture
      '    - Creates a bitmap type Picture object from a bitmap and
      '      palette.
      '
      ' hBmp
      '    - Handle to a bitmap.
      '
      ' hPal
      '    - Handle to a Palette.
      '    - Can be null if the bitmap doesn't use a palette.
      '
      ' Returns
      '    - Returns a Picture object containing the bitmap.
      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '
      #If Win32 Then
         Public Function CreateBitmapPicture(ByVal hBmp As Long, _
            ByVal hPal As Long) As Picture

            Dim r As Long
      #ElseIf Win16 Then
         Public Function CreateBitmapPicture(ByVal hBmp As Integer, _
            ByVal hPal As Integer) As Picture

            Dim r As Integer
      #End If
         Dim PIC As PicBmp
         ' IPicture requires a reference to "Standard OLE Types."
         Dim IPic As IPicture
         Dim IID_IDispatch As GUID

         ' Fill in with IDispatch Interface ID.
         With IID_IDispatch
            .Data1 = &H20400
            .Data4(0) = &HC0
            .Data4(7) = &H46
         End With

         ' Fill Pic with necessary parts.
         With PIC
            .Size = Len(PIC)          ' Length of structure.
            .Type = vbPicTypeBitmap   ' Type of Picture (bitmap).
            .hBmp = hBmp              ' Handle to bitmap.
            .hPal = hPal              ' Handle to palette (may be null).
         End With

         ' Create Picture object.
         r = OleCreatePictureIndirect(PIC, IID_IDispatch, 1, IPic)

         ' Return the new Picture object.
         Set CreateBitmapPicture = IPic
      End Function

[westconn1]

i created a sample project as described, i do not get any error at that point, and the printout is fine

[aa9gg]

article talks about vb4, this does run in vb6 too right???

[westconn1]

yes i was using vb6, without problem

[aa9gg]

yes i was using vb6, without problem

  ' IPicture requires a reference to "Standard OLE Types."
         Dim IPic As IPicture

I always keep getting a type mis-match runtime error. How do I set the "reference to Standard OLE Types" ? Under "Projects > Components"?

I think I'm doing this right.... I put all that printer code (from that link) into a module (.bas) then the print button on my form does:

Set Picture1.Picture = CaptureForm(Me)
PrintPictureToFitPage Printer, Picture1.Picture
Printer.EndDoc

[westconn1]

How do I set the "reference to Standard OLE Types" ? Under "Projects > Components"?

i did not need to, it just worked correctly for me

can you post a simple, sample project, that demonstrates the error?

[aa9gg]

Well I can not get past that type mis-match error. I don't understand why I get it. I found another method, but I'm having issues with it too (http://support.microsoft.com/default...;EN-US;q230502)