样控制报表的打印边距和纸型啊

eastport

怎样控制报表的打印边距和纸型啊,VBA怎么写啊,请指教

wang1999

利用Printer 对象的ColorMode、Copies、Duplex、Orientation、PaperBin、PaperSize 属性设置应该基本满足要求!

你具体在帮助文档中详细看一看。

此为OFFICE-XP新增对象,2K无法使用.但如果要使用VBA加载自定义纸张,这个比较麻烦,代码十分复杂,要基本用到下列API函数，不推荐使用，除非你开发商业化软件Public Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" _

                (ByVal lpDeviceName As String, ByVal lpPort As String, ByVal iIndex As Long, _

                lpOutput As Any, lpDevMode As Any) As LongPublic Declare Function AddForm Lib "winspool.drv" Alias "AddFormA" _

                (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte) As LongPublic Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" _

                (ByVal hPrinter As Long, ByVal Level As Long, ByRef pForm As Any, _

                ByVal cbBuf As Long, ByRef pcbNeeded As Long, _

                ByRef pcReturned As Long) As LongPublic Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _

                (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As LongPublic Declare Function ClosePrinter Lib "winspool.drv" _

                                     (ByVal hPrinter As Long) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

                              (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

quanli

Dim stDocName As String

Dim prt As Printer

Set prt = Application.Printers(0)

prt.Orientation = acPRORLandscape

prt.BottomMargin = 800

prt.TopMargin = 1400

prt.LeftMargin = 700

prt.RightMargin = 400

prt.PaperSize = acPRPSA4stDocName = "一览表"

DoCmd.OpenReport stDocName, acPreview

Reports(stDocName).Printer = prt