关于那printer.canvas.textwidth的问题,大虾看看(50分)

  • 主题发起人 主题发起人 TXJ
  • 开始时间 开始时间
T

TXJ

Unregistered / Unconfirmed
GUEST, unregistred user!
我在做一程序拿那printer.canvas来做打印的
但我做到printer.canvas.textwidth('大富翁')的时候呢会走纸的按照我的理解呢这不会
走纸的,printer.canvas.textwidth('大富翁')的代码的意思我理解为打印在纸上的宽度
但会走纸一张的怎么来解决掉《
 
按照道理不会走纸的怎么会走的呢它是那根据字体的大小来确定打印的宽度的怎么会起纸呢,
等待回答
 
大虾救我。。。。
 
耐心的等待答案了
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
with Printerdo
begin
begin
Doc;
canvas.font.name:='宋体';
canvas.font.size:=10;
canvas.textwidth('asfdas');
canvas.TextOut(......);
EndDoc;
end;
end;
end;

搞笑!

[red]去试试,看看究竟打几张!!给我回复!!!!!!![/red]
 
会不会是你Textout的内容超过了纸张的宽度?
 
后退
顶部