Common Dialog and custom printing

[run_GMoney]

Ok so I've got code like this:

Private Sub mnuPrint_Click()
 
    With dlgCommonDialog
        .DialogTitle = "Print"
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        .ShowPrinter
    End With
        
End Sub

to bring up the Print dialog. My question is, can you then do custom printing with the Printer object after bringing up the Print dialog? I currently have a function that I call to do my printing. (It's a pretty raw solution I know but it works in a couple printers I've tried. I'm not opposed to suggestions to improve it though )

Private Function PrintPicture()
    
Form1.Picture7.Print Form1.Label7.Caption
Form1.Picture5.Print Form1.Label1.Caption
 
Step = 200
For i = 5 To 45
    If Check1(i).Value = 1 Then
        Form1.Picture2.Line (0, Step)-(500, Step), Check1(i).ForeColor
        Form1.Picture2.Print Check1(i).Caption
        Step = Step + 500
    End If
Next
 
Form1.Picture2.Line (0, 0)-(2415, 0)
Form1.Picture2.Line (0, 0)-(0, Step)
Form1.Picture2.Line (0, Step)-(2415, Step)
Form1.Picture2.Line (2415, 0)-(2415, Step)
 
'Picture2.Visible = True
 
Printer.PaintPicture Picture1.Image, 1000, 3500
Printer.PaintPicture Form1.Picture7.Image, ((Printer.Width - Form1.Label7.Width) / 2), ((3500 - Form1.Label7.Height) / 2)
Printer.PaintPicture Form1.Picture2.Image, 1000 + Picture1.Width + 50, 3500 + (Picture1.Height - (Step + 80))
Printer.PaintPicture Form1.Picture3.Image, (Printer.Width - (Form1.Picture3.Width + 600)), Printer.Height - (Form1.Picture3.Height * 2)
Printer.PaintPicture Form1.Picture4.Image, 100, Printer.Height - (Form1.Picture3.Height * 2)
Printer.PaintPicture Form1.Picture5.Image, 1000 + Picture1.Width + 50 + ((2415 / 2) - (Form1.Label1.Width / 2)), 3500 + Picture1.Height - Step - 50 - Form1.Picture5.Height
 
Printer.CurrentX = 750
Printer.CurrentY = 3400
For i = 0 To 6
    Printer.Print Label8(i).Caption
    Printer.CurrentX = 700
    Printer.CurrentY = Printer.CurrentY + 985
Next
 
Printer.CurrentX = 900
Printer.CurrentY = 10800
For i = 13 To 19
    If i < 19 Then
        Printer.Print Label8(i).Caption;
        Printer.CurrentX = Printer.CurrentX + 1150 - (Label8(i + 1).Width / 2)
        Printer.CurrentY = 10800
    Else: Printer.CurrentX = 900 + Picture1.Width - (Label8(19).Width / 3)
        Printer.Print Label8(19).Caption
    End If
Next
 
Printer.EndDoc
 
'Picture2.Visible = False
 
End Function

So I guess my question is, can I call that function from inside the Print dialog?

[j_jewell]

...instead of using the Common Dialog, try using the actual Printer Settings Dialog. I don't know if this helps at all, but maybe.

http://support.microsoft.com/default...b;en-us;322710

[run_GMoney]

Outstanding. That should work. I'll post my code when I get all the bugs worked out. Thanks for that link.