打印求救（请问如何在程序里设置系统的打印对话框中的内容。并且可以保存设置。）

Question

请问如何在程序里设置系统的打印对话框中的内容。并且可以保存设置。

Answer 1

With CmnDlg
'            .ShowPrinter
            .PrinterDefault = False
            .flags = cdlPDReturnDefault
            .flags = cdlPDPrintSetup Or cdlPDReturnIC
            .CancelError = True         ' 在用户点击取消按钮时产生cdlCancel错误
                       
            On Error Resume Next
            .ShowPrinter
            
            ' 如果用户取消了选择就退出
            If Err.number = cdlCancel Then
                Exit Sub
            End If            On Error GoTo 0            '在这如何知道用户选择的是哪台打印机？
        End With

Answer 2

for i=1 to 3
...
next