Private Const CCHDEVICENAME = 32 Private Const CCHFORMNAME = 32 Enum PaperClassSize DMPAPER_LETTER = GDI.DMPAPER_LETTER DMPAPER_LEGAL = GDI.DMPAPER_LEGAL DMPAPER_A4 = GDI.DMPAPER_A4 DMPAPER_CSHEET = GDI.DMPAPER_CSHEET DMPAPER_DSHEET = GDI.DMPAPER_DSHEET DMPAPER_ESHEET = GDI.DMPAPER_ESHEET DMPAPER_LETTERSMALL = GDI.DMPAPER_LETTERSMALL DMPAPER_TABLOID = GDI.DMPAPER_TABLOID DMPAPER_LEDGER = GDI.DMPAPER_LEDGER DMPAPER_STATEMENT = GDI.DMPAPER_STATEMENT DMPAPER_EXECUTIVE = GDI.DMPAPER_EXECUTIVE DMPAPER_A3 = GDI.DMPAPER_A3 DMPAPER_A4SMALL = GDI.DMPAPER_A4SMALL DMPAPER_A5 = GDI.DMPAPER_A5 DMPAPER_B4 = GDI.DMPAPER_B4 DMPAPER_B5 = GDI.DMPAPER_B5 DMPAPER_FOLIO = GDI.DMPAPER_FOLIO DMPAPER_QUARTO = GDI.DMPAPER_QUARTO DMPAPER_10X14 = GDI.DMPAPER_10X14 DMPAPER_11X17 = GDI.DMPAPER_11X17 DMPAPER_NOTE = GDI.DMPAPER_NOTE DMPAPER_ENV_9 = GDI.DMPAPER_ENV_9 DMPAPER_ENV_10 = GDI.DMPAPER_ENV_10 DMPAPER_ENV_11 = GDI.DMPAPER_ENV_11 DMPAPER_ENV_12 = GDI.DMPAPER_ENV_12 DMPAPER_ENV_14 = GDI.DMPAPER_ENV_14 DMPAPER_ENV_DL = GDI.DMPAPER_ENV_DL DMPAPER_ENV_C5 = GDI.DMPAPER_ENV_C5 DMPAPER_ENV_C3 = GDI.DMPAPER_ENV_C3 DMPAPER_ENV_C4 = GDI.DMPAPER_ENV_C4 DMPAPER_ENV_C6 = GDI.DMPAPER_ENV_C6 DMPAPER_ENV_C65 = GDI.DMPAPER_ENV_C65 DMPAPER_ENV_B4 = GDI.DMPAPER_ENV_B4 DMPAPER_ENV_B5 = GDI.DMPAPER_ENV_B5 DMPAPER_ENV_B6 = GDI.DMPAPER_ENV_B6 DMPAPER_ENV_ITALY = GDI.DMPAPER_ENV_ITALY DMPAPER_ENV_MONARCH = GDI.DMPAPER_ENV_MONARCH DMPAPER_ENV_PERSONAL = GDI.DMPAPER_ENV_PERSONAL DMPAPER_FANFOLD_US = GDI.DMPAPER_FANFOLD_US DMPAPER_FANFOLD_STD_GERMAN = GDI.DMPAPER_FANFOLD_STD_GERMAN DMPAPER_FANFOLD_LGL_GERMAN = GDI.DMPAPER_FANFOLD_LGL_GERMAN End Enum Enum PrinterDialogBox [DialogBoxDefault] = 0 [DialogBoxSetup] = PD_PRINTSETUP [DialogBoxHide] = PD_RETURNDEFAULT End Enum Private Type DevNames wDriverOffset As Integer wDeviceOffset As Integer wOutputOffset As Integer wDefault As Integer extra(100) As Byte End Type Private Type DEVMODE dmDeviceName As String * CCHDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCHFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Private Type PrinterDlg lStructSize As Long hwndOwner As Long hDevMode As Long hDevNames As Long hdc As Long flags As EPrintDialog 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 Type PrinterPageSetupDlg lStructSize As Long hwndOwner As Long hDevMode As Long hDevNames As Long flags As Long ptPaperSize As POINTL rtMinMargin As RECT rtMargin As RECT hInstance As Long lCustData As Long lpfnPageSetupHook As Long lpfnPagePaintHook As Long lpPageSetupTemplateName As String hPageSetupTemplate As Long End Type Private Type DocInfo cbSize As Long lpszDocName As String lpszOutput As String lpszDatatype As String fwType As Long End Type Private Declare Function PageSetupDlgX Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PrinterPageSetupDlg) As Long Private Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintdlg As PrinterDlg) As Long Private Declare Function StartDoc Lib "gdi32" Alias "StartDocA" (ByVal hdc As Long, lpdi As DocInfo) As Long Private Declare Function StartPage Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPage Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndDoc Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function AbortDoc Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As Long, lpInitData As Any) As Long Private Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" (ByVal hdc As Long, lpInitData As DEVMODE) As Long Private Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As Any) As Long Private Declare Function SetWindowExtEx Lib "gdi32" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpSize As Any) As Long Private Declare Function SetViewportExtEx Lib "gdi32" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpSize As Any) As Long Private Declare Function SetWindowOrgEx Lib "gdi32" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As Any) As Long '// 以上是有用无用的相关API声明， 摘用代码 声明就不调着用了 Sub GetSystemDefaultPrinter() '// 获取系统默认打印机打印作业 Dim pd As PrinterDlg Dim pps As PrinterPageSetupDlg pd.lStructSize = Len(pd) pd.flags = PD_RETURNDC Or PD_RETURNDEFAULT If PrintDlg(pd) Then '// 先用 PrintDlg 获取默认打印机DC PG.HDC_Printer = pd.hdc Dim hGlobalData As Long '// 锁定临时空间, 获取驱动配置信息 hGlobalData = GlobalLock(ByVal pd.hDevMode) CopyMemory PG.dev_dlgMode, ByVal hGlobalData, Len(PG.dev_dlgMode) GlobalUnlock (hGlobalData) GlobalFree (pd.hDevMode) '// 锁定临时空间, 获取驱动,设备信息 hGlobalData = GlobalLock(ByVal pd.hDevNames) CopyMemory PG.dev_dlgName, ByVal hGlobalData, Len(PG.dev_dlgName) GlobalUnlock (hGlobalData) GlobalFree (pd.hDevNames) Dim mulbits() As Byte Dim i As Long ReDim mulbits(PG.dev_dlgName.wDriverOffset - 1) CopyMemory mulbits(0), PG.dev_dlgName.extra(0), PG.dev_dlgName.wDriverOffset PG.dev_DriveName = StrConv(mulbits, vbUnicode) '// 获取设备名, 通常为: WINSPOOL , 为固定文本内容;
'// 也见过 CreateDC 时未使用 winspool 仅指定打印机名字的代码,用以创建HDC,虽未测试,但是公布出来的例子代码应该也能成功
i = lstrlenByte(PG.dev_dlgName.extra(PG.dev_dlgName.wDriverOffset + 2)) ReDim mulbits(i - 1) CopyMemory mulbits(0), PG.dev_dlgName.extra(PG.dev_dlgName.wDriverOffset + 2), i PG.dev_PrinterName = StrConv(mulbits, vbUnicode) '// 获取打印机名字
'// 获取默认打印机的打印配置 pps.lStructSize = Len(pds) pps.flags = PSD_INHUNDREDTHSOFMILLIMETERS Or PSD_RETURNDEFAULT If PageSetupDlgX(pps) Then '// 获取打印机默认配置参数 '// 锁定临时空间, 获取驱动配置信息 hGlobalData = GlobalLock(ByVal pps.hDevMode) CopyMemory PG.dev_dlgMode, ByVal hGlobalData, Len(PG.dev_dlgMode) ResetDC PG.HDC_Printer, hGlobalData '// ResetDC 用于将获取的默认打印参数应用到已选择的打印机 DC 上 GlobalUnlock (hGlobalData) GlobalFree (pps.hDevMode) '// 获取打印机分辨率, 每英寸内像素量 PG.PrinterResolveX = GetDeviceCaps(PG.HDC_Printer, LOGPIXELSX) PG.PrinterResolveY = GetDeviceCaps(PG.HDC_Printer, LOGPIXELSY) '// 转换打印机默认边距度量单位为屏幕逻辑像素 PG.dev_RectMargin = pds.rtMargin PG.dev_RectMargin.Left = mmeterPerPixelX(PG.dev_RectMargin.Left \ 100) PG.dev_RectMargin.Right = mmeterPerPixelX(PG.dev_RectMargin.Right \ 100) PG.dev_RectMargin.Top = mmeterPerPixelX(PG.dev_RectMargin.Top \ 100) PG.dev_RectMargin.bottom = mmeterPerPixelX(PG.dev_RectMargin.bottom \ 100) '// 设置打印机视图范围度量单位为像素 SetMapMode PG.HDC_Printer, MM_ANISOTROPIC '// 设置打印机设备窗口范围, 窗口设置屏幕分辨率 SetWindowExtEx PG.HDC_Printer, PG.ScreenResolveX, PG.ScreenResolveY, ByVal 0& SetWindowOrgEx PG.HDC_Printer, 0, 0, ByVal 0& '// 设置打印机设备视图范围, 设置为缩放分辨率,系统自动计算为比例 SetViewportExtEx PG.HDC_Printer, PG.PrinterResolveX, PG.PrinterResolveY, ByVal 0& SetViewportOrgEx PG.HDC_Printer, 0, 0, ByVal 0& '// 以上api: SetWindowExtEx ,SetViewportExtEx , 也就是说以 WindowExt 设置的视图范围, 显示以 ViewPort 设置的视图范围 '// 获取设备物理尺寸, 以像素为单位, 打印分辨率不同 DC 的像素尺寸也不同,分辨率越高越大 PG.dev_PaperSize.x = GetDeviceCaps(PG.HDC_Printer, HORZRES) PG.dev_PaperSize.y = GetDeviceCaps(PG.HDC_Printer, VERTRES) '// 物理尺寸解析为逻辑尺寸 DPtoLP PG.HDC_Printer, PG.dev_PaperSize, 1 '// 下面开始打印作业的具体内容了 StartDoc PG.HDC_Printer, prtDoc StartPage (PG.HDC_Printer)
TextOut PG.HDC_Printer, ... '// 此处为向 PG.HDC_Print 用 GDI API 绘图的过程， 绘制的内容就是要打印的内容， 比如 DrawText，TextOut 绘制文本， FillRect，FrameRect 绘制矩形， LineTo,MoveTo 绘制线段等， 与普通 HDC 绘图基本一致， '// 绘图时，PG.HDC_Print 的 Rect 为：0,0,PG.dev_PaperSize.x,PG.dev_PaperSize.Y EndPage PG.HDC_Printer EndDoc PG.HDC_Printer DeleteDC PG.HDC_Printer End If End If End Sub
Windows 系统的打印作业目前似乎仅有 GDI API 的方法
将打印实现过程以绘图的形式给coder调用，感觉ms coder 真的很天才
普通程序员编程打印前必须用 SetMapMode ，SetWindowExtEx，SetViewportExtEx 参照上述代码内容设置视图
经过测试，字体是矢量的，无视分辨率及视图大小的变化，但是除此之外的自绘图形则无法匹配分辨率
所以必须设置视图范围，将物理尺寸、不同分辨率格式化为近似的固定范围尺寸，如上面代码将A4纸型格式化为 1000多x700多的矩形
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我没有打印机不方便实际测试，所以用 PDF 打印机测试的打印效果
有个重要问题始终没弄明白，DEVMODE 结构的参数设置到底是自动配置的还是一部分需要手动实现？
比如 DEVMODE.dmCopies 打印份数，到底是打印机自己重复打印指定份数还是需要代码实现？ PDF 打印机无论指定多少份都只出一份，由于是虚拟打印机所以不确定结果
经过反复测试和搜索例子代码，似乎确定了一个事实，打印预览只能自己手动实现
HDC_Print ，打印机的 HDC 是无法通过 Bitblt 之类api导出的， 普通 HDC －> Bitblt,StrxxxBlt，xxBlt， －> 打印机 HDC，是可以的，但这样的话就相当于打印图片了，复制过去后形成了一个图片，这是单向的，打印机HDC 不能通过同样方法输出图形到普通HDC（肯定是不行的，最好也不要测试，我测试时还蓝过）， 而且不要尝试直接给 打印机HDC 配置位图，SelectObject HDC_Print,位图 是无效的，但设备无关位图是可以使用的
