VB 报表设计

以前没用VB来设计过报表，网上很多人建议使用水晶报表。本着简单实用的原则我还是使用了VB自带设计器来做。

大体思路很简单，通过数据源的绑定来获得数据，再使用报表显示出来。

但实际操作中细节问题很多，比如A4纸张打印太窄，必须横向打印。

 

先解决横向打印问题：

解决办法一：是将VB 6升级到SP5 通过了Orientation来解决

 Printer.Orientation = vbPRORLandscape或Printer.Orientation = 2

二：在没升级的情况下只能使用代码，在模块中写入以下代码

Option Explicit Public Enum PrinterOrientationConstants OrientPortrait = 1 OrientLandscape = 2 End Enum Private Type DEVMODE dmDeviceName As String * 32 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 * 32 dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Private Type PRINTER_DEFAULTS pDataType As String pDevMode A