Easy Printform command

I'm using VB5 on a NT platform. I have a form with many controls. I update the controls and do a Form1.printform. This works fine but when I incorporate the printform command in a loop. Some of the printouts get lost. Does anyone have any solutions?

Hi,

I think that your Form Interface (actual physical size) is not big enough. So, you can only get a part of your printing.

So, please try to enlarge your Form Interface "manually" in design view, by dragging your mouse at the Form's border. Make your Form bigger!!!

Good luck,
Gary Ng

Hi,

Thanks for the suggestion, but it doesn't appear to be the form size. It's not that I'm lossing graphics, I'm missing print jobs. ie. print job 1 is fine, print job 2 is fine but print Job 3 (form print 3) is missing. I have created a test project with a much smaller form and only one command button and got the same result. I have also tried adding printer.NewPage and Printer.EndDoc statement before and aftter the printform command with no luck. My guess is that this may be a spooler issue. Any suggestion to help solve would be appreciated.


private Sub Command1_Click()
x = 1
Do While x < 5
Form2.PrintForm
x = x + 1
Loop
End Sub