VB+AE开发部分集锦代码.docVIP

一、+ae实现自定义纸张打印 版本：VB6 ArcGis Engine 9.0 相信很多人写打印程序时都没考虑过打印机选择不同纸张的操作。 在VB6中，凡是写打印程序没有涉及api的，均末考虑选择不同纸张的问题。 下面是打印程序的核心代码 若需要源代码，请在下面跟贴写出自己的e-mail。 这段程序算是比较全的vb自定义纸张打印了，但还需要各人自己完善。 友情赠送，共同进步。 ? Dim PrintDlg As PRINTDLG_TYPE??? Dim DEVMODE As DEVMODE_TYPE??? Dim DevName As DEVNAMES_TYPE ??? Dim lpDevMode As Long, lpDevName As Long??? Dim bReturn As Integer??? Dim objPrinter As Printer, NewPrinterName As String ??? Use PrintDialog to get the handle to a memory??? block with a DevMode and DevName structures ??? PrintDlg.lStructSize = Len(PrintDlg)??? PrintDlg.hwndOwner = Me.hwnd ??? PrintDlg.flags = PD_PRINTSETUP + PD_NONETWORKBUTTON + PD_HIDEPRINTTOFILE??? On Error Resume Next??? Set the current orientation and duplex setting??? DEVMODE.dmDeviceName = Printer.DeviceName??? DEVMODE.dmSize = Len(DEVMODE)??? DEVMODE.dmFields = DM_ORIENTATION Or DM_DUPLEX??? DEVMODE.dmPaperWidth = Printer.Width??? DEVMODE.dmOrientation = Printer.Orientation??? DEVMODE.dmPaperSize = Printer.PaperSize??? DEVMODE.dmDuplex = Printer.Duplex??? On Error GoTo 0 ??? Allocate memory for the initialization hDevMode structure??? and copy the settings gathered above into this memory??? PrintDlg.hDevMode = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(DEVMODE))??? lpDevMode = GlobalLock(PrintDlg.hDevMode)??? If lpDevMode 0 Then??????? CopyMemory ByVal lpDevMode, DEVMODE, Len(DEVMODE)??????? bReturn = GlobalUnlock(PrintDlg.hDevMode)??? End If ??? Set the current driver, device, and port name strings??? With DevName??????? .wDriverOffset = 8??????? .wDeviceOffset = .wDriverOffset + 1 + Len(Printer.DriverName)??????? .wOutputOffset = .wDeviceOffset + 1 + Len(Printer.Port)??????? .wDefault = 0??? End With ??? With Printer??????? DevName.extra = .DriverName Chr(0) .DeviceName Chr(0) .Port Chr(0)??? End With ??? Allocate memory for the initial hDevName structure??? and copy the settings gathered above into this memory??? PrintDlg.hDevNames = GlobalA