需要类似 VB “打印设置”的功能

Question

如何实现一个类似 VB “打印设置”那样界面的打印设置功能。请提供可实施的源码。

Answer 1

CommonDialog.ShowPrinter只能显示一个简单的对话框。而且比较丑。
但是VB里的那个打印对话框是不能弹出来的。你可以用office excel里的打印设置啊。那个打印设置筐比较好，功能全。非常漂亮。使用方法也很简单。
Dim oExcel as Object
Set oExcel = CreateObject("Excel.Application")
oExcel.Dialogs(xlDialogPrint).Show()
其中show()方法里可以设置打印设置对话框上的所有参数。你自己可以查一下Office帮助。

Answer 2

注意，xlDialogPrint是excel里的常量，在这里你必须自己定义。
它的值是 xlDialogPrint = 8;另外如果Show方法里不传参数的话，是不需要括号的。
即：
Dim oExcel as Object
Const xlDialogPrint = 8
Set oExcel = CreateObject("Excel.Application")
oExcel.Dialogs(xlDialogPrint).Show

Answer 3

参考
http://www.sijiqing.com/vbgood/code/index.asp?action=read&id=1199