[RESOLVED] Fancy Printing

what are the scrollbars for in your project? What do they do?

Quote:

---

You'll also need the declarations and the PrintPictureToFitPage routine.

---

What declarations do i need and what do i need to do in the PRintPictureToFitPage routine?

Here's my take on what i need to do.
For each picture i want to print, i have to make a picturebox and change Visible to false, then make a 2nd picturebox inside picture1. Then i gotta use the .PaintPicture on one of the picturebox's, not sure which one and paint it to the other picturebox...? Im really confused right now :(

And this 'rv' variable is confusing me.. What's the sendmessage do for it?

Its API, but what does it do?

Ok, i figured it out!

For anybody else trying to do this, here's the steps using the project sgrya1 made to add a picture, and make it in layout form:

1) Change the width of Picture1 to 9735
2) Change the height of Picture1 to 12735
3) Under the PrintPictureToFitPage sub, change this:

VB Code:

If Pic.Height >= Pic.Width Then
    Prn.Orientation = vbPRORPortrait   'Taller than wide
Else
    Prn.Orientation = vbPRORLandscape  'Wider than tall
End If

to this:

VB Code:

Prn.Orientation = vbPRORPortrait

4) Create a picturebox inside Picture1, name it whatever you want
5) Create another picturebox outside picture1 with a different name(this will be the invisible picture)
6) Under the PrintNow sub, before the Printer.EndDoc line, add this:

VB Code:

With picNewInvisible
   .top = picNew.top
   .left = picNew.left
   .Width = picNew.Width
   .Height = picNew.Height
   .Visible = False
   .BorderStyle = 1
   .BackColor = &H80000005
End With
picNewInvisible.AutoRedraw = True
rv = SendMessage(picNew.hwnd, WM_PAINT, picNewInvisible.hDC, 0)
rv = SendMessage(picNew.hwnd, WM_PAINT, picNewInvisible.hDC, PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
SmallPrnPicWidth = picNewInvisible.Width * PrnPicWidth / Picture1.Width
SmallPrnPicHeight = picNewInvisible.Height * PrnPicHeight / Picture1.Height
SmallPrnPicLeft = picNewInvisible.left * PrnPicWidth / Picture1.Width
SmallPrnPicTop = picNewInvisible.top * PrnPicHeight / Picture1.Height
picNewInvisible.Picture = picNewInvisible.Image
picNewInvisible.AutoRedraw = False
Printer.PaintPicture picNewInvisible, SmallPrnPicLeft, SmallPrnPicTop, SmallPrnPicWidth, SmallPrnPicHeight

picNew is the picture inside Picture1 that you want to see printed out
picNewInvisible is the picture outside picture one, its the invisible picture.

7) Change every PicNew and PicNewInvisible to the correct names you have on your form

Thats it! Do steps 1 through 7 for every picture you want printed on your page.

If anybody ever has any questions about this, reply to this thread no matter how old it is, and your question will most likely be answered!

Thank you Sgrya1, CVMichael, RobDog888, and Hack for all your answers and input in helping me get through this difficult problem! Rep up for you all!