关于CommonDialog1的打印机设置，谢谢帮忙 ！！！

[QQKiKi]

CommonDialog1.PrinterDefault = True
CommonDialog1.ShowPrinter
Form1.PrintForm

可是它还是按照原来的打，没有照我在CommonDialog1.ShowPrinter里设置的打印，怎么办？

[Bardo]

Form1.PrintForm 不可能按你的设置！

[jett]

CommonDialog只对printer对象起作用

[QQKiKi]

CommonDialog能不能把打印机设置改完后，以后打印机就一直按这个来设置？

如果不行，用API怎么做呢？

[playyuer]

Private Sub Command1_Click()
CommonDialog1.Flags = cdlPDPrintSetup
CommonDialog1.CancelError = True
On Error GoTo ErrorHandler
CommonDialog1.ShowPrinter
On Error GoTo 0
Me.PrintForm
Exit Sub
ErrorHandler:
If Err.Number <> 32755 Then
VBA.MsgBox Err.Number & ":" & vbCrLf & Err.Description
End If
End Sub

[jett]

同意斑竹
要改也只能改printsetup
print对话框只能看作是个数据输入框

[lihonggen0]

同意：　playyuer(女㊣爱)　

[QQKiKi]

我 去试验一下

[xc_xiefei]

必须把CommonDialog设置的属性赋给printform对应的属性（如果有的话），才起作用··
例：Printer.Orientation = CommonDialog1.Orientation （纵向，横向）
去试试吧···

[Corny]

在Win2k下这种设置有问题，CommonDialog的设置不能正确地被Printer对象获得