Printing with common dialog

[VBadmin]

I am trying to print with the common dialog control, however I have a problem. The printer's hDC property changes each time i check it, so there is never a printer who's hDC matches that of the common dialog. Here is my code:

cdlg.Flags = cdlPDReturnDC
cdlg.ShowPrinter
 
    For Each X In Printers
       If X.hDC = cdlg.hDC Then Set Printer = X
    Next
    Printer.Orientation = cdlg.Orientation
   
    Me.PrintForm
    Printer.EndDoc

[Serge]

You actually don't have to do anything. CommonDialog controll will change the printer object for you. The only thing you have to consider is if you want the common dialog printer to change the selected printer to be a default printer. So if you don't want it to change it then you have to use PrinterDefault property:

Private Sub Command1_Click()
    
    With CommonDialog1
        'make sure that CommonDialog will not change it
        'to be a default printer
        .PrinterDefault = False
 
        .ShowPrinter
        
        Printer.Print "hi"
    End With
End Sub