关于 Report Machine 的几个问题。 (300分)

  • 主题发起人 主题发起人 soFTangeL
  • 开始时间 开始时间
S

soFTangeL

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟初次使用RM,有一些问题没有弄懂。只因他的论坛我上不去,特来此求教各位大侠,还望不吝赐教![:I]
1、在 Report Machine 中如何选择默认打印机但并不显示?([red]已解决[/red])
我的一台机器上装有两台打印机。打印的时候会出现选择打印机的情况。请问如何给某一报表的打印机赋值并让他自动通过这台打印机打印而不显示?
2、如何在程序中设置纸张的类型及大小?(50)
3、如何固定页边距?也就是说无论是A3还是A4等,使之固定边距均为固定的一个数值?(100)
4、如何按纸张类型动态缩放报表?就是按百分比来显示?(100)
剩下的50分留给热心参与的朋友。分不多,还望各位海涵!
由于小弟乃初用 Report Machine ,所以请朋友给的解释、代码等尽量详细些。谢谢!
 
动态设置纸张
var
v: TRMView;
b: TRMBandView;
Page: TRMPage;
begin
RMReport1.Pages.Clear;
RmReport1.Pages.Add;

Page := RMReport1.Pages[0];
page.Width :=宽度
PAGE.Height:=高度
end;
 
你说的功能大部分可以实现,你可以看看rm_Class单元,或者家我的QQ:33230773
 
http://www.jnnj110.gov.cn/jingning/list.asp?boardid=1
里面宝藏无数哦,记得给我加分,另加200 送你他论坛的离线包。
 
第一个问题我已经解决。
当前最重要的是如何固定页边距。我用RM来回预览几次,发现页边距会自动改变。打印区域只有巴掌大。我倒!
哪位大大能解决这个问题?愿以高分相赠。
btw:楼上的若知道解决办法不妨帮帮我吧。那里人少,远水解不了近渴。现在急用啊!
谢谢各位了!
 
RMReport不是有设置吗
 
var
t: TRMView;
lMasterDataBand: TRMBandMasterData;
lPage: TRMReportPage;
begin

RMReport1.Pages.Clear;
lPage := RMReport1.Pages.AddReportPage;
// create page
lPage.PageMargins.Left:=20;
lMasterDataBand := TRMBandMasterData.Create;
lMasterDataBand.ParentPage := lPage;
lMasterDataBand.SetspBounds(0, 20, 0, 20);
lMasterDataBand.DataSetName := 'RMDBDataSet1';
t := RMCreateObject(gtMemo, '');
// create data field
t.ParentPage := lPage;
t.SetspBounds(20, 20, 300, 20);
t.Memo.Add('[Table1."Company"]');
t.LeftFrame.Visible := True;
t.TopFrame.Visible := True;
t.RightFrame.Visible := True;
t.BottomFrame.Visible := True;
end;
 
为什么我使用
procedure TSysLogo.Cmd_PrnClick(Sender: TObject);
begin
[red]ServMainForm.RM_LOGO.ShowReport[/red] ;
end;
会造成报表 RM_LOGO 一闪而过?[:(]
 
关注中。。。。。。。。。。。
 
关注中。。。。。。。。。。。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
928
DelphiTeacher的专栏
D
D
回复
0
查看
883
DelphiTeacher的专栏
D
D
回复
0
查看
856
DelphiTeacher的专栏
D
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
916
SUNSTONE的Delphi笔记
S
后退
顶部