I have managed to make everything else work exactly as I would like it to, but when it comes to printing from the Common Dialog.
I have 43 Text Boxes, 44 Labels, 1 Save, 1 Load, 1 Print button [as well as a shitload of form modifying code]
I have managed to get it to print, but for the business I need it to print full page [8.5 x 11in] paper. As of now the form is 10370 x 8880 [I have no idea what it is. It's not pixels obviously] Instead of making a big form that is 8.5 x 11 inches, I would like to be able to press the print button and have a Page Setup to where I can set up the form to print as I would need.
This is my print code, I'm sure that you will understand that I'm not going to post the other 500+ lines.
Private Sub Command3_Click() Dim BeginPage, EndPage, NumCopies, i ' Set Cancel to True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' Display the Print dialog box CommonDialog1.ShowPrinter ' Get user-selected values from the dialog box BeginPage = CommonDialog1.FromPage EndPage = CommonDialog1.ToPage NumCopies = CommonDialog1.Copies For i = 1 To NumCopies Me.PrintForm Next i Exit Sub ErrHandler: ' User pressed the Cancel button Exit Sub End Sub
I appreciate the help in advance. Thank you. =]