怎样调用打印机设计的对话框

ma_zun_yi 2004-03-23 10:42:59

就像开始--设置--打印机一样

...全文

92 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

hisofty 2004-03-24

打赏
举报

或者
Shell "explorer ::{2227A280-3AEA-1069-A2DE-08002B30309D}"

hisofty 2004-03-24

打赏
举报

ShellExecute Me.hwnd, "open", "explorer", "::{2227A280-3AEA-1069-A2DE-08002B30309D}", vbNullString, SW_SHOWNORMAL

ma_zun_yi 2004-03-23

打赏
举报

CommonDialog1.ShowPrinter，不管用，不能真正改变计算机打印机的配置

myhot-河马吃草 2004-03-23

打赏
举报

CommonDialog1.ShowPrinter

添加一commondialog 控件。。

ryuginka 2004-03-23

打赏
举报

CommonDialog1.ShowPrinter

ma_zun_yi 2004-03-23

打赏
举报

用户要求在程序中有这一块，这样他就不用再开始--设置--打印机了

victorycyz 2004-03-23

打赏
举报

用通用对话框不能满足你的要求吗？

mzy7511 2004-03-23

打赏
举报

Dim i

i = Shell("rundll32.exe shell32.dll SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus)

ma_zun_yi 2004-03-23

打赏
举报

我顶以下

ma_zun_yi 2004-03-23

打赏
举报

//'在此放置代码，将数据发送到打印机。//
具体代码怎么写呢？

tegong033 2004-03-23

打赏
举报

用CommonDialog控件Dim BeginPage, EndPage, NumCopies, Orientation, i
'将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'显示“打印”对话框。
CommonDialog1.ShowPrinter
'从对话框中获取用户选定数值。
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For i = 1 To NumCopies

'在此放置代码，将数据发送到打印机。

Next
Exit Sub
ErrHandler:
'用户按下了“取消”按钮。
Exit Sub

dufeiyan9170 2004-03-23