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