装备指挥技术学院 林华君 鲜思德  



Borland C＋＋ Builder是基于C＋＋语言的可视化编程环境，它提供了可重用组件库和一系列RAD设计工具，使得编程者只需用少量的手工代码就可以创建出高效的Windows应用程序，尤其是复杂的数据库访问应用程序，因此深受软件开发人员的喜爱。 

在开发数据库访问应用程序时，会经常涉及到报表的打印问题。C＋＋ Builder中提供了Quick Report(快速报表)组件供编程人员设计报表。Quick Report是挪威的QuSoft AS公司专门为C＋＋ Builder设计的用于制作报表的一组控件，在C＋＋ Builder中关于Quick Report的帮助文档不是很详细。另外它与C＋＋ Builder的其他控件的风格也不太一致。直接使用Quick Report的报表预览功能总是不能达到令人满意的效果，因此有必要自定义快速报表的预览窗口。 

设置预览窗口 

新建工程，在Form1窗体上添加一个ToolBar控件，并在其上添加以下按钮：“打印”、“打印设置”、 

“上一页” 、“下一页”、“放大”、“缩小”和“关闭”。 在Form1窗体上添加一个Panel控件,对齐方式设为alBottom，再在此Panel控件上添加一个ProgressBar控件(对齐方式设为alLeft)和一个Panel控件(Name 为Panel2，对齐方式设为alRight,BevelOuter设为bvLowered),这两个控件分别用来显示报表装载进度和其他提示信息。在Form1窗体上添加一个QRPreview控件,对齐方式设为alClient。Form1窗体的外观如图1所示： 

  

图1 自定义快速报表的预览窗口 

再新建一个窗体，设其Name为Form2, 在该窗体上添加TQuickRep控件，设其Name为QuickRep1，其PrinterSetting中的Units属性设为mm（以毫米为计量单位），然后建立报表。 

编程实现 

1.在Form2上选择QuickRep1，在其事件中选择OnPreview，输入以下代码： 

Form1－>QRPreview1－>QRPrinter=Form2－>QuickRep1－>QRPrinter; 

2.在Form1的头文件中找到对象TForm1的定义，在其中添加以下的代码： 

int OldPaperSize; 

int OldOrientation; 

int OldTop; 

int OldBottom; 

int OldLeft; 

int OldRight; 

void RefreshPanel(); 

3.选择Form1的Activate事件，输入以下代码： 

//初始化 

OldPaperSize=Form2－>QuickRep1－>Page－>PaperSize; 

OldOrientation=Form2－>QuickRep1－>Page－>Orientation＋1; 

OldLeft=Form2－>QuickRep1－>Page－>LeftMargin＊100; 

OldRight=Form2－>QuickRep1－>Page－> 

RightMargin＊100; 

OldTop=Form2－>QuickRep1－>Page－>Top 

Margin＊100; 

OldBottom=Form2－>QuickRep1－>Page－> 

BottomMargin＊100; 

Form2－>QuickRep1－>Prepare(); 

RefreshPanel(); 

Form2－>QuickRep1－>Preview(); 

4.在Form1中添加更新提示代码： 

void TForm1::RefreshPanel() 

{ //更新提示信息 

Panel2－>Caption=“第”＋IntToStr(Form1－>QRPreview1－>PageNumber)＋“页”＋“共” ＋ IntToStr(Form2－>QuickRep1－>PageNumber)＋“页”; 

} 

5.从Form1中选择QRPreview1，在其事件中选择OnProgressUpdate，输入以下代码： 

//显示报表装载进度 

ProgressBar1－>Position=Progress; 

RefreshPanel(); 

6.打印： 

Form2－>QuickRep1－>Print(); 

7.打印设置： 

DEVMODE ＊pDev; 

LPPAGESETUPDLG mylp=new PAGESETUPDLG; 

memset((void ＊)mylp,0,sizeof 

(PAGESETUPDLG)); 

mylp－>lStructSize=sizeof(PAGESETUPDLG); 

mylp－>hwndOwner=this－>Handle; 

mylp－>Flags=PSD_RETURNDEFAULT; 

PageSetupDlg( mylp ); 

if (mylp－>hDevMode!=NULL){ 

　pDev=(DEVMODE ＊)GlobalLock(mylp－>hDevMode); 

　pDev－>dmPaperSize =OldPaperSize; 

　pDev－>dmOrientation =OldOrientation; 

　mylp－>rtMargin.left =OldLeft; 

　mylp－>rtMargin.right =OldRight; 

　mylp－>rtMargin.top =OldTop; 

　mylp－>rtMargin.bottom=OldBottom; 

　GlobalUnlock(mylp－>hDevMode); 

mylp－>Flags=PSD_MARGINS| 

PSD_INHUNDREDTHSOFMILLIMETERS; 

　if(PageSetupDlg(mylp)){ 

　　pDev=(DEVMODE ＊)GlobalLock 

(mylp－>hDevMode); 

　　OldPaperSize =pDev－>dmPaperSize; 

if(OldPaperSize>28)OldPaperSize=9;//A4 

OldOrientation=pDev－>dmOrientation; 

OldLeft =mylp－>rtMargin.left; 

OldRight =mylp－>rtMargin.right; 

OldTop =mylp－>rtMargin.top; 

OldBottom =mylp－>rtMargin.bottom; 

Form2－>QuickRep1－>Page－>Orientation =OldOrientation－1; 

Form2－>QuickRep1－>Page－>PaperSize  

=OldPaperSize; 

Form2－>QuickRep1－>Page－>LeftMargin =OldLeft/100; 

Form2－>QuickRep1－>Page－>RightMargin =OldRight/100; 

Form2－>QuickRep1－>Page－>TopMargin =OldTop/100; 

Form2－>QuickRep1－>Page－>Bottom 

Margin=OldBottom/100; 

　GlobalUnlock(mylp－>hDevMode); 

} 

　GlobalFree(mylp－>hDevMode); 

　} 

delete mylp; 

QRPreview1－>PageNumber=1; 

Form2－>QuickRep1－>Prepare(); 

Form2－>QuickRep1－>Preview(); 

8.向上翻页： 

//上一页 

if(QRPreview1－>PageNumber > 1) 

　QRPreview1－>PageNumber－－; 

RefreshPanel(); 

9.向下翻页： 

//下一页 

if(QRPreview1－>PageNumber < Form2－> 

QuickRep1－>PageNumber) 

QRPreview1－>PageNumber＋＋; 

　RefreshPanel(); 

10.放大处理： 

//放大 

if(QRPreview1－>Zoom< 200) 

　QRPreview1－>Zoom＋=5; 

11.缩小处理： 

//缩小 

if(QRPreview1－>Zoom>5) 

　QRPreview1－>Zoom－=5; 

小 结 

该方法的核心是使用了Win32 API函数PageSetupDlg()，利用该函数可以获取页面设置的缺省值，包括纸张大小、打印方向以及上下左右空白边的大小等，也可以弹出页面设置对话框来修改这些值。