VB 报表设计

最新推荐文章于 2025-07-14 14:06:59 发布

原创

最新推荐文章于 2025-07-14 14:06:59 发布 · 972 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #vb #access #integer #function #buffer

本文介绍了如何使用VB自带的设计器来设计报表，着重解决了A4纸张横向打印的问题。通过调整VB的SP5版本或者自定义代码设置打印机方向，实现了报表的顺利打印。同时，详细展示了连接数据库、设置报表数据源以及参数赋值的方法。

以前没用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