Code: Select all
Me.docPreview.PrintWithDlg()
I know that I could do the following, however this does not show the Print dialog and just sends it directly to the printer, which I do not want.
Code: Select all
Dim op As PDFXEdit.IOperation = Nothing
op = Me.docPreview.Inst.CreateOp(Me.docPreview.Inst.Str2ID("op.document.printPages"))
Dim doc As PDFXEdit.IPXV_Document = Me.docPreview.Doc
Dim input As PDFXEdit.ICabNode = op.Params.Root("Input")
input.Add().v = newDoc
op.Do()
Dim opExecFlags As Integer = 0
Me.docPreview.Inst.AsyncDoAndWaitForFinish(op, CUInt(opExecFlags))
Thanks
Simon