为什么只能打印第一页? 先设好tqrrichtext的最大行数,你可以设好当输入tqrrichtext的文本行大于tqrrichtext的最大行数时,就强制newpage,在上面再放入一个tqrrichtext就行了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以把TQRRichText的autostretch属性设为true,然后将TQRRichText所在的qrband的forcenewpage属性设为true,试一试。 同意 surfguy(冲浪小子) 应该可以! 看看打印机吧,有一些usb打印机在win98下的确存在这种问题还有hp的打印机也会出现这种情况,不过有的可以使用图形方式打印出来 代码?50少来点procedure TForm2.Button1Click(Sender: TObject);begin Form1.QRMemo1.Lines := Memo1.Lines; Form1.vPrint; QRCompositeReport1.Preview; Application.MessageBox('Game Over !!!','GAME OVER',mb_ok+mb_iconinformation);end;procedure TForm2.Button2Click(Sender: TObject);begin Label1.Caption :=IntToStr(Memo1.Lines.Capacity);end;procedure TForm2.QRCompositeReport1AddReports(Sender: TObject);begin if Count < Memo1.Lines.Count-1 then begin QRCompositeReport1.Reports.Add(Form1.QuickRep1); QRCompositeReport1.Reports.Add(Form3.QuickRep1); end else QRCompositeReport1.Reports.Add(Form1.QuickRep1);end;end.-------------------------------------------------------有程序的-----------------------.dfmobject Form2: TForm2 Left = 192 Top = 107 Width = 544 Height = 375 Caption = 'Form2' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 176 Top = 8 Width = 32 Height = 13 Caption = 'Label1' end object Memo1: TMemo Left = 32 Top = 24 Width = 401 Height = 265 Lines.Strings = ( ' 自我简介' '0' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22' '23' '24' '25' '26' '27' '28' '29' '30' '31' '32' '33' '34' '35' '36' '37' '38' '39' '40' '41' '42' '43' '44' '45' '46' '47' '48' '49' '50' '51' '52' '53' '54' '55' '56' '57' '58' '58' '60' '61' '62' '63' '64' '65' '66' '67') ScrollBars = ssVertical TabOrder = 0 end object Button1: TButton Left = 136 Top = 304 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 248 Top = 304 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 2 OnClick = Button2Click end object QRCompositeReport1: TQRCompositeReport OnAddReports = QRCompositeReport1AddReports Options = [] PrinterSettings.Copies = 1 PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.OutputBin = Auto PrinterSettings.Orientation = poPortrait PrinterSettings.PaperSize = Letter Left = 176 Top = 72 endend 还想请问一下 ihihonline(小小->充电中……) vPrint 是什么啊? Delphi怎么获取网页变量 通过inputbox输入指定的文字,监控文字? 要在一个程序界面中同时播放3路视频,那位高手能提个开发思路? ************问题********************* 100分询问一个控件! delphi与压力温度传感器,数据采集,之间有何关系??高手请回答? delphi 中grid的显示问题,大家帮帮忙. 我用了个记录数组,用完要释放吗? DELPHI下的异质数据库查询是否有限制?为什么不能对ACCESS进行操作。 Delphi 5 安装后启动后死机 两个关于SQL的小问题。 我用的是WINDOWS XP HOME版,为什么没有IIS、PWS?
应该可以!
还有hp的打印机也会出现这种情况,不过有的可以使用图形方式打印出来
少来点
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.QRMemo1.Lines := Memo1.Lines;
Form1.vPrint;
QRCompositeReport1.Preview;
Application.MessageBox('Game Over !!!','GAME OVER',mb_ok+mb_iconinformation);
end;procedure TForm2.Button2Click(Sender: TObject);
begin
Label1.Caption :=IntToStr(Memo1.Lines.Capacity);
end;procedure TForm2.QRCompositeReport1AddReports(Sender: TObject);
begin
if Count < Memo1.Lines.Count-1 then
begin
QRCompositeReport1.Reports.Add(Form1.QuickRep1);
QRCompositeReport1.Reports.Add(Form3.QuickRep1);
end else
QRCompositeReport1.Reports.Add(Form1.QuickRep1);
end;end.-------------------------------------------------------
有程序的
-----------------------.dfm
object Form2: TForm2
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Form2'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 176
Top = 8
Width = 32
Height = 13
Caption = 'Label1'
end
object Memo1: TMemo
Left = 32
Top = 24
Width = 401
Height = 265
Lines.Strings = (
' 自我简介'
'0'
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49'
'50'
'51'
'52'
'53'
'54'
'55'
'56'
'57'
'58'
'58'
'60'
'61'
'62'
'63'
'64'
'65'
'66'
'67')
ScrollBars = ssVertical
TabOrder = 0
end
object Button1: TButton
Left = 136
Top = 304
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 248
Top = 304
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 2
OnClick = Button2Click
end
object QRCompositeReport1: TQRCompositeReport
OnAddReports = QRCompositeReport1AddReports
Options = []
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrinterSettings.Orientation = poPortrait
PrinterSettings.PaperSize = Letter
Left = 176
Top = 72
end
end