200分奉上，请教打印预览中图元文件如何使用（最好有例子）？ (200分)

W

wencai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #1

我正在做打印预览，想用图元文件来实现
（打印程序已完成，全部是用Tprinter手工画的报表），
请大家帮帮忙吧!!!

 

D

dongys_2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-14

• #2

我也很关心，给我发一份吧——dongys2000@163.net

 

F

fpsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-14

• #3

我也想看看你的代码
FPSKY2000@163.NET

 

S

sanming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #4

我也想要呀,发份给我吧!
SANMINGDELPHI@21CN.COM
谢谢!

 

徐

徐凤华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #5

也给我发一份吧!谢谢!!! ---- frank_xfh@163.com

 

C

Change_On_Insta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #6

一個簡單的MetaFile用例
procedure TForm1.Button1Click(Sender: TObject);
var meta:TmetaFile;
metaCanvas:TmetaFileCanvas;
button2:Tbutton;
begin
meta:=Tmetafile.Create;
metacanvas:=tMetafileCanvas.Create(meta,0);
do
print(metaCanvas);//在元文件上繪制
metaCanvas.Free;
//先要執行這一句
form2.Left:=form2.ScrollBox1.Left;
form2.Top:=form2.ScrollBox1.Top;
form2.Image1.Width:=a;
form2.Image1.Height:=b;
form2.image1.Picture.Metafile:=meta;
form2.Show;
end;

 

W

wencai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #7

谢谢大家
其实我是想问,能否有一种方法把对printer.Canvas的原有操作直接移到tMetafileCanvas上
因为打印程序已经做完,我不想再改(但该死的客户非要我加预览),因为我看到过一个虚拟打
印机的程序,我想是否能有一种方法把对打印机的操作直接交给图元文件(可能通过句柄),我
要做的可能只是显示一下图元文件就行了,原来的代码也不用做太大的修改,好像是不行,算了
现在没时间找方法了,还是老老实实做吧,等有时间研究出来在分享给大家.

 

W

wencai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #8

接受答案了.

 

X

x_coffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #9

如果有解决方法也给我发一个，sea_tree@sina.com[8D]

 

W

wuxiaoyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #10

给我发一个好吗，successbody@sina.com
谢谢！

 

X

xsj_by

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #11

能不能给我发一个，我的程序做到这儿卡住了，xushijie2004@hotmail.com