急 急 急 打印出来的东西都是白纸(100分)

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #1

我安装了一个tmycad控件 然后配合printdialog 进行打印操作
这个是关键的一个代码
printer.canvas.draw(0,0,lar_mycad[li_i].BkBitmap);
为什么就是打印不出东西 总是空白的
这里仅仅用到了printer的方法 好象tmycad还没用到过
现在我也需要选择打印机 就是有好多台打印机让你选择
大家给我个思路吧 谢谢！！！

 

蓝

蓝叶菱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #2

你前面加上一个canvan.lock在打印一下。。。。
printer.canvas.draw(0,0,lar_mycad[li_i].BkBitmap);
UNLOCK。。

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #3

没有墨水了吧？[]

 

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #4

回复的好快啊 谢谢 蓝叶菱啊
结果还是白纸张出来 。。。郁闷

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #5

Printer.begin
Doc;
printer.canvas.draw(0,0,lar_mycad[li_i].BkBitmap);
Printer.EndDoc;

 

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #6

稍微完整一点的：
if pdlog.Execute then
begin
printer.begin
Doc;
li_needpage := ceil((high(lar_mycad) + 1) / 4);
setlength(lar_mycad, li_needpage);
for li_i := 0 to li_needpage - 1do
begin
// lar_mycad[li_i].Print([0, 1]);
printer.canvas.draw(0,0,lar_mycad[li_i].BkBitmap);
end;
printer.EndDoc;
就是这段代码

 

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #7

先回家了 大家多多拍砖 先谢谢大家了

 

超

超级牛X

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-27

• #8

打印出来的东西都是白纸?
要是能做出这样一个程序还是很有创意的啊，将用过的纸从出纸口放进去，然后发个命令，干干净净的白纸就从进纸口出来了。

 

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #9

[] 不厚道 楼上某些人 顶

 

S

Showxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #10

try
lar_mycad[li_i].Print([], 1.0);
except
end;

不行么 ？我就这么用的！

 

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #11

可能其他地方出问题了吧 我再看看
有人说lar_mycad[li_i].BkBitmap 这里没有赋值
资料太少了 我继续研究一下

 

N

northpig2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #12

to showxy
那一行代码就可以了么
有人说lar_mycad[li_i].BkBitmap 这里没有赋值
还有你用的什么牌子的打印机 有人跟我说是打印机的问题 呵呵 郁闷

 

S

Showxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-31

• #13

是的就那一行代码！跟打印机关系应该不大吧！
还没解决么 ？可以加我QQ 106743238