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 As Long DesiredAccess As Long End Type Private Type PRINTER_INFO_2 pServerName As Long pPrinterName As Long pShareName As Long pPortName As Long pDriverName As Long pComment As Long pLocation As Long pDevMode As Long pSepFile As Long pPrintProcessor As Long pDataType As Long pParameters As Long pSecurityDescriptor As Long Attributes As Long Priority As Long DefaultPriority As Long StartTime As Long UntilTime As Long Status As Long cJobs As Long AveragePPM As Long End Type Public Const DMPAPER_A5 = 11 Private Const DM_IN_BUFFER As Long = 8 Private Const DM_OUT_BUFFER As Long = 2 Private Const DM_ORIENTATION As Long = &H1 Private Const DM_PAPERSIZE = &H2& Private Const PRINTER_ACCESS_ADMINISTER As Long = &H4 Private Const PRINTER_ACCESS_USE As Long = &H8 Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000 Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE) Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any,hpvSource As Any,ByVal cbCopy As Long) Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String,phPrinter As Long,pDefault As Any) As Long Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function DocumentProperties Lib "winspool.drv" Alias "DocumentPropertiesA" (ByVal hWnd As Long,ByVal hPrinter As Long,ByVal pDeviceName As String,pDevModeOutput As Any,pDevModeInput As Any,ByVal fMode As Long) As Long Private Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (ByVal hPrinter As Long,ByVal Level As Long,pPrinter As Any,ByVal cbBuf As Long,pcbNeeded As Long) As Long Private Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long,ByVal Command As Long) As Long Function SetDefaultPrinterOrientation(ByVal eOrientation As PrinterOrientationConstants,length As Integer,width As Integer,psize As Integer) As Boolean Dim bDevMode() As Byte Dim bPrinterInfo2() As Byte Dim hPrinter As Long Dim lResult As Long Dim nSize As Long Dim sPrnName As String Dim dm As DEVMODE Dim pd As PRINTER_DEFAULTS Dim pi2 As PRINTER_INFO_2 ' 获取默认打印机的设备名称 sPrnName = Printer.DeviceName ' 由于要调用SetPrinter，所以 ' 如果是在NT下就要求PRINTER_ALL_ACCESS pd.DesiredAccess = PRINTER_ALL_ACCESS ' 获取打印机句柄 If OpenPrinter(sPrnName,hPrinter,pd) Then ' 获取PRINTER_INFO_2结构要求的字节数 Call GetPrinter(hPrinter,2&,0&,nSize) ReDim bPrinterInfo2(1 To nSize) As Byte lResult = GetPrinter(hPrinter,2,bPrinterInfo2(1),nSize,nSize) Call CopyMemory(pi2,Len(pi2)) Do While pi2.cJobs > 0 DoEvents If OpenPrinter(sPrnName,pd) Then ' 获取PRINTER_INFO_2结构要求的字节数 Call GetPrinter(hPrinter,Len(pi2)) End If ' If killkill = 5 Then Exit Do ' DoEvents Loop DoEvents nSize = DocumentProperties(0&,sPrnName,0) ReDim bDevMode(1 To nSize) If pi2.pDevMode Then Call CopyMemory(bDevMode(1),ByVal pi2.pDevMode,Len(dm)) Else Call DocumentProperties(0&,bDevMode(1),DM_OUT_BUFFER) End If Call CopyMemory(dm,Len(dm)) With dm ' 设置新的走向 'oldDeviceName = .dmDeviceName 'oldOrientation = .dmOrientation 'oldPaperSize = .dmPaperSize .dmOrientation = eOrientation '.dmFields = DM_ORIENTATION .dmPaperSize = psize '将纸张设为所需大小 If psize = 256 Then .dmPaperLength = length .dmPaperWidth = width End If .dmFields = DM_PAPERSIZE + DM_ORIENTATION '必须，否则无法设置纸张大小 End With Call CopyMemory(bDevMode(1),dm,Len(dm)) Call DocumentProperties(0&,_ bDevMode(1),DM_IN_BUFFER Or _ DM_OUT_BUFFER) pi2.pDevMode = VarPtr(bDevMode(1)) lResult = SetPrinter(hPrinter,pi2,0&) Call ClosePrinter(hPrinter) SetDefaultPrinterOrientation = True Else SetDefaultPrinterOrientation = False End If

再在按钮触发事件中写入

Dim pr pr = SetDefaultPrinterOrientation(2,2800,2400,256) DataReport1.Show

1是纵向，2是横向，256是定义，2800是长度，2400是宽度。

现在就是报表设计器的问题了

先把数据环境设计器连接到数据库

DataReport的DataMember 属性写为command1

DataReport的DataSource 属性写为DataEnvironment1

连接完后，在SQL语句中写入 SQL代码

select * from ylj where yf=?

留下参数传递为不同报表做准备。

如下的就是如何对参数赋值的问题了。

Bname5=text1.text With DataEnvironment1 If .rsCommand1.State = adStateOpen Then .rsCommand1.Close End If Dim par As Long par = Bname5 .Command1 par ' 对参数赋值 End With

在按钮触发事件中添加如下代码

在设计报表样式时，我不喜欢抓取到网络，我都会钩掉，好方便自己调整。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!