[RESOLVED] Fancy Printing

Ive searched the forums but i cant come up with anything helpful enough to solve my problem.

Ive got a program that does all kinds of things, but now i gotta take all the options and values and everything and make one nice big fancy report for my program to print out. But the thing is, most of what i find is just printing your VB Form or a text file.. This form i print will have lines, boxes, pictures, different size text, colors, all kinds of things, and i wanna be able to print draft, normal, and high quality.

I cant seem to find something suitable for this, i guess mostly because my first problem is i dont know if i need to have my program create an HTML file, or a word document or just create it the way its gonna look on a form.. Im just so lost! Ahh!!! :eek2:

Any ideas for either problem here?

I would start with dumping the contents to a Word document or Excel spreadsheet and let them deal with the formatting and printing.

The app I'm currently working on has about 60 reports to it and I dump them all to Excel, and my users can do whatever they wish to them prior to printing. (This was a program spec but I liked the way it turned out....far less coding for me. :D )

Well, i like the idea but the process has to be nearly instant. They gotta click a button that says "Process Forms" and then up comes the report, then they choose Draft, Normal, or HQ and then Print and there done..

The people using this program are complete retards (not literally), so it cant be too complicated... Now if i could create it as a word document inside a control on a form and stick those buttons on there, that would work pretty good.

But i dunno how hard thats gonna be... :(

All of my reports have a criteria screen where the user selects what they want and how they want it. Once they are done selecting, the click OK and based on their selections I create a SQL query, retrieve the data from by database, create a recordset, create an Excel spreadsheet out of the ether (I'm not using precreated templates, but that might be something you would want to investigate), and port the entire recordset over the the spreadsheet.

The speed at which it runs depends on the criteria selected so it varies.

Sounds promising, do you have any code snipets or links that could help me out? I dont know any SQL or how to export to excel or word or anything.

There's going to be a template, and it needs to import the information into the template, including a few pictures too.

I have used wordpad instead of Word or Excel as it allows the end user to not be required to have either installed and wordpad comes free with windows. What you could also do is check for Office being installed and if not use wordpad. Using any of the Office apps will slow down the print queueing process. So for the faster method, use wordpad.

Quote:

---

Originally Posted by RobDog888

I have used wordpad instead of Word or Excel as it allows the end user to not be required to have either installed and wordpad comes free with windows. What you could also do is check for Office being installed and if not use wordpad. Using any of the Office apps will slow down the print queueing process. So for the faster method, use wordpad.

---

That was a something i was thinking about, a problem that could easily come about with this program, but again... how? :eek:

Just shell or shellexecute your desired file to be printed with write.exe and you will be in business. Getting pictures in it is a little more tricky but write does support them. Use a rtf file format for the most ease.

Well to do that, i have to create the file at runtime. Thats the first problem... I can do this with HTML since there's no encoding at all, just tags.. I could make the template in Frontpage, and make the program write the file and add in whats needed as it goes, its fairly simple i guess, but the printing part sucks...


Doing it in Wordpad or Word or Excel would be much nicer, but how do i take the value's of my controls and write out a temp file for Word, Wordpad, or Excel to print?

Yes, the office apps would need something to display after they are opened either for printing or for display. This will be where your biggest time delay will occur.

For this part of the program i really dont mind if it takes a few seconds to load.. As long as its not several minutes, but the report needs to look nice, and print nicely, and be easy to use...

Then which are you going to use? Excel or Word? Word may be easier since if you create a rtf document and they dont have word instanned (after you check for this) then you can just output to wordpad. With Excel you would have to create a csv file and then the images would be a problem.

Well then that eliminates Excel.

Since all computers have wordpad on it but not Word, i think right now Word would be the best choice.

So lets go with that, see what we can do

Why not use Crystal Reports to print ?

Or, why not print on the printer object ?
You know.. like:

VB Code:

Printer.Print "Hello world !"
' etc...
Printer.EndDoc

Well here's the thing... I know nothing about Crystal Reports, SQL, or exporting files to another file format other then a standard text file..

I cant use Printer.Print becuase it doesnt allow me to customize a page properly with pictures and text and everything..

Is there any way to make it as simple as loading everything onto a picture box and printing the picturebox on a full page, with custom settings? That would be easiest i think

Because its allot more work to print an image using the printer object. Plus it doesnt come out as nice. What if the user wanted a print preview?

Yes, you can print easier if you placed everything to be printed in a picturebox.

Thats kinda what i need, a Print Preview.. I want the user to be able to see whats being printed first.. When they goto the Contract section, its going to show all the information. They need to double check it to make sure its all correct, then choose draft, normal, HQ, and print it..

Quote:

---

Originally Posted by RobDog888

Yes, you can print easier if you placed everything to be printed in a picturebox.

---

How do i print the picturebox? Will it print all the pictures and everything the way it looks at runtime? And how do i make it scale itself to a full piece of paper, that way its not some little box of stuff on a piece of paper.

Quote:

---

Originally Posted by PMad

I cant use Printer.Print becuase it doesnt allow me to customize a page properly with pictures and text and everything..

---

You can print on the printer object just like you print in a picturebox.... you can put text & pictures

Printer.Print PictureBox1


like that?

something like this:

VB Code:

Printer.PaintPicture Picture1.Image, 0, 0
    ' or...
    Printer.PaintPicture Picture1.Picture, 0, 0

See the other options of PaintPicture if you want to position the picture in a specific place or resize the picture...

ok, so everything i put on the Picture box will count as the .Image?

doing that will print all labels, textboxes, pictures, and everything else i put into the picturebox?

If you load a jpeg, then it will be in the .Picture, if you draw in the picturebox, then it will be in the .Image

Do you want to print the actual text box, or the data in it ?
Do you want it to look exactly like a form ? (if yes, then why not just use the .PrintForm property ?)

I dont want it to look exactly like the form. Like the title of this thread, its gonna be a fancy looking report. If i print a form the way it looks, its gonna come out really weird.

As I was saying before... if you can draw it in a picture box, then you can draw it in the printer object... you can draw anything that you want on it... there is no limit...

So if i use labels, lines, boxes, and pictures inside a picture box, i can print the main picturebox and it will print the contents?

Ok im gonna try out using 'Printer'...

But i have a question. How do i tell it which device to use over a network? How can i give the user a choice, and select a default?

Each time i try it i get the error 'Argument not optional' and it highlights '.PaintPicture'

ok i put the ',0 ,0' after the image, and it sent it to the default printer im guessing.. But it just sits there and says "Spooling"... wont print anything..

Ok it finally printed.. But its a blank page, i have a picture, a couple labels, a check box, and a line in the picturebox... But it prints a blank page... :(

Quote:

---

Originally Posted by CVMichael

Why not use Crystal Reports to print ?

Or, why not print on the printer object ?
You know.. like:

VB Code:

Printer.Print "Hello world !"
' etc...
[B]Printer.EndDoc[/B]

---

See the bolded line

ok i spent some more time searching through the forums, and here's what i found out from this thread: http://www.vbforums.com/showthread.php?t=441226

Apparently trying to put controls into a picturebox and then printing them all cant be done, atleast thats what i got from that thread. So i started trying things that were said in that thread.

Instead i have a new form load up, and it prints the form using .PrintForm

The problem im having is, im trying to print something thats going to take up the entire page, with very little borders, about 1/4" on all sides, the rest of the paper will be filled with information.

The problem is the borders on the top and left are perfect, but the right side and bottom arent.. So i messed with it some more and i got the border on the right correct, but now the bottom wont size up.

The window can not get big enough to take up the bottom portion of the paper when printed. So reading on, i found this code:

VB Code:

Dim XZoom As Single, YZoom As Single
   
XZoom = 100 * Printer.Width / frmPrinterPage1.ScaleWidth
YZoom = 100 * Printer.Height / frmPrinterPage1.ScaleHeight
 
If XZoom < YZoom Then
    Printer.Zoom = XZoom
Else
    Printer.Zoom = YZoom
End If
 
frmPrinterPage1.PrintForm

Only problem is thats not working, but it worked for the people on that thread.... I must be doing something wrong?

Now im trying to figure out the form width and form height i need, then put the template on there, which will be finished up by code on the main form, and then printed.

But i cant figure it out, doesnt want to work for me :(

anybody got any ideas on how to do this?

Or can anybody make some quick form that works and upload it here so i can look at it and get that same thing going in my project...?

This is the very last thing i have to deal with and then my project is done! Finally! But this is being the biggest pain, and its the most important of all :sick:

Try making the width of the form smaller, or the height bigger...
Zoom does what it says it does, it changes the width and height to fit the page, but if your width and height is not the same ratio as the page, then it will fit only one side width or height...

I thought of that already..

Before i used .Zoom, i was getting the width right but not the height. I had extended the window to the maximum height but it wouldnt go, so i typed in a custom number which was around 17000, and it worked for 1 print.. After that it would continuously limit the height to around 13500 even if i had a bigger number typed in.

Then i started using the .Zoom, i made the width and height alot smaller, and it printed out as if i didnt use .Zoom.

The code im using for .Zoom should scale it to fit the page keeping the same aspect ratio. Which means regardless of what i do, the width or the height should be correct, and i can adjust from there to get the right size but it doenst do that. Instead i got 3~4 inch borders on the bottom and the right...

I did work it out. Have a look at this solution. It's not too difficult but I wouldn't be surprised there's an easier way.

Quote:

---

Originally Posted by sgrya1

I did work it out. Have a look at this solution. It's not too difficult but I wouldn't be surprised there's an easier way.

---

I mentioned that thread you started before that earlier. Ive downloaded the project you made but it doesnt work the way i need it too. I added a picturebox and it wouldnt print the picture inside the box, only the border around the picture.

I have 4~6 pictures that will need to be printed out. The rest is labels, lines, and a few grids.

Also when looking at your project, im a little confused because im 100% Newbie to the printing portion of VB. Its hard to understand all the coding in your program. It printed out the paper in Landscape, i cant do it landscape.

The project has one main picturebox that gets sent to the printer. For some reason some controls within that picturebox (other pictureboxes, frames and flexgrids are examples) don't seem to get sent with it so you have to do them each seperately.
Ie paint each picturebox to another invisible picturebox and send an image of that invisible picturebox to the printer.

These lines in the project check whether the output should be in portrait or landscape. Disable the landscape option if you just want portrait.

VB Code:

' Determine if picture should be printed in landscape
' or portrait and set the orientation.'
If Pic.Height >= Pic.Width Then
    Prn.Orientation = vbPRORPortrait   'Taller than wide
Else
    Prn.Orientation = vbPRORLandscape  'Wider than tall
End If '

So for each picture i need to add, i have to sent it to the printer myself?

How do i do that? You mentioned putting stuff in an invisible picturebox and sending the invisible picturebox to the printer.. Well what if its just a picturebox itself? Does it still need to go in an invisible picturebox?

In the example there are 4 pictureboxes. Picture1 is the main picture within the form (the one you use as the extents of the printed page). Picture 3 is an additional picture (you have 6 of these so there'll be a couple more to deal with). Pictures 2 and 4 (located to the right of picturebox 1) are needed to paint images of Pictures 1 and 3 onto (again you'll need another 5 of these).

The only code you need to manipulate is the PrintNow routine to include painting your additional pictures and sending them to the printer.

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

PMad, I mixed up the picturebox numbers in my last post which I've just amended.

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!