Common Dialog - PrinterDlg

[Chad123]

Hey,

I am using the PrinterDlg for the common dialog, and I am getting this error when I run the PrinterDlg.ShowPrinter objWPForm.hWnd

Error Number = -2147467259
Automation Error
Unspecified Error

Here is my code up to where it errors out:

Dim objPrinter As PrinterDlg
On Error GoTo PrintErr
Set txCur = objWPForm.txTextcontrol1
Set objPrinter = New PrinterDlg
objPrinter.CancelError = True
objPrinter.Flags = VBPrinterConstants.cdlPDNoSelection _
Or VBPrinterConstants.cdlPDNoPageNums _
Or VBPrinterConstants.cdlPDReturnDC _
Or VBPrinterConstants.cdlPDHidePrintToFile
objPrinter.ShowPrinter objWPForm.hwnd


Any Ideas why I am getting this error and/or how to fix it?

Thanks,
Chad

 

[Chad123]

Nevermind....

I figured out the hard way that you actually have to specify the initial, current printer settings in the Printerdlg before you can show it.

Case Closed!

Thanks Anywho
Chad