请熟悉F1BOOK的FW看看, 我想获取F1BOOK中的不同的工作表的打印纸张大小(100分)

唐

唐太宗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #1

想获取F1BOOK中的不同的工作表的打印纸张大小, 在帮助中查找了半天,
捍到PrintDevMode 属性,
var
DevMode : PDeviceMode;
begin
DevMode := GlobalLock(F1Book1.PrintDevMode);
DevMode^.dmPaperSize
DevMode^.dmPaperLength
DevMode^.dmPaperWidth
end;

但是我用上面的代码得到的dmpaperlength, paperwidth 都不对呀,
请指点一二.

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #2

F1book不是你那样设置的，用Delphi的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
MyPageSet:F1PageSetup;
begin
MyPageSet :=F1Book61.CreateNewPageSetup ;
MyPageset.PaperSize:=F1PaperA4;//设置为A4纸
MyPageSet.LeftMargin:= 1;
//设置左边距
MyPageSet.PagesWide :=190;
end;

 

唐

唐太宗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #3

to 小刚:
我要是获取一个F1BOOK.READ读入一个文件以后,它已经设置好的纸张大小.
不是设定他的.

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #4

刚才的代码有点问题，下面的一定满足你了：
procedure TForm1.Button1Click(Sender: TObject);
var
MyPageSet:F1PageSetup;
PageWidthouble;
begin
MyPageSet :=F1Book61.CreateNewPageSetup ;
{MyPageset.PaperSize:=F1PaperA4;//设置为A4纸
MyPageSet.LeftMargin:= 1;
//设置左边距
MyPageSet.PagesWide :=190;
}
F1book61.SetPageSetup(MyPageSEt);
if MyPageset.PaperSize=F1PaperA4 then
PageWidth:=210-(MyPageset.LeftMargin+MyPageSet.RightMargin );
showmessage(Floattostr(PageWidth));
end;

 

唐

唐太宗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #5

小刚兄:
麻烦一下,为什么我这句mypageset返回值为NIL呢, 我的F1BOOK安装是正常的呀,
MyPageSet :=F1Book61.CreateNewPageSetup ;

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #6

我看你的代码不是delphi的，在c++里可能不是这么用吧，我对在C++里怎么用也不熟。

 

唐

唐太宗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #7

小刚兄我是DELPHI6的呀
我的代码就是这样的,麻烦你看看,
你的代码测试通过了的是吗..

 

唐

唐太宗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-29

• #8

TO 小刚兄:
我也查了DFW其它的贴子, 都是这样的写法, 我重新在D7中生成F1BOOK的PAS文件,
再在D6中安装一遍就可以了, 没有出现问题了,
//谢谢你的指点.