一个简单的报表打印问题(300 分相求,不断的加分....)这个问题,至今甚至没有人给出一点思路
我的报表打印在装有 win2000 或 nt 的电脑上可以使用网络打印机或者本地打印机正常
打印,但在装有 win98 的电脑上,则网络打印机或者本地打印机均不能打印,但预览是正确的,打印针头只是动了一下。另外,在win98 下 excel一直 能正常打印,表明 win98
下的驱动程序是没有问题的。我的程序里没有使用 api ,也没有使用数据绑定,报表打印是在 QuickRep的 OnNeedData事件里通过编程来实现的。代码部分如下
procedure TFrm.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
if ii<10 then
begin
QRLabel2.Caption:=inttostr(II);
INC(II);
MOREDATA:=TRUE;
end;
end;
// ii 是全局变量 QRLabel2 要显示的 ii 在 onprint 事件里初始化代码如下:
procedure TFrm.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
ii:=0;
end;