求教！请问各位高手，如何运用API调用打印功能！

Question

就用，vb自带的打印函数很好用
printer.newdoc
printer.print "OOOOO"
printer.enddoc
不只回答到点子上没有，分很高接点我吧，班竹呀

Answer 1

命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
结果： 显示打印机属性。例子：
    Dim x
    x = Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")

Answer 2

我是想知道win32api里面的PrinterProperties是如何用法，请问有哪位高手会，能给我一些sample吗

Answer 3

用 API 打开打印对话框   
声明：
Declare Function PRINTDLG Lib "comdlg32.dll" Alias _
"PrintDlgA" (pPrintdlg As PRINTDLG) As Long
Type PRINTDLG
lStructSize As Long
hwndOwner As Long
hDevMode As Long
hDevNames As Long
hdc As Long
flags As Long
nFromPage As Integer
nToPage As Integer
nMinPage As Integer
nMaxPage As Integer
nCopies As Integer
hInstance As Long
lCustData As Long
lpfnPrintHook As Long
lpfnSetupHook As Long
lpPrintTemplateName As String
lpSetupTemplateName As String
hPrintTemplate As Long
hSetupTemplate As Long
End Type
使用：
Private Sub Command1_Click()
Dim p As PRINTDLG
p.lStructSize = Len(p)
p.hwndOwner = Me.hWnd
p.nFromPage = 1
p.nToPage = 1
p.nMinPage = 1
p.nMaxPage = 1
p.nCopies = 1
x = PRINTDLG(p)
Printer.Print Text1.Text
End Sub