點擊第一次可以正確列印，點擊第二次就全無反應
var
wordHeight:integer;
begin
with printer do
begin
printer.BeginDOC;
with Canvas do
begin
Canvas.Font.Size := 10;
wordHeight := Canvas.TextHeight('字')+10;
TextOut(100, wordHeight, ‘XXXXXXXXXX');
。。。。。。。。。。。
TextOut(100, 25*wordHeight, '請妥善保管此憑證，退換貨需使用');
end;
printer.EndDoc;
end;
end;
uj5u.com熱心網友回復：
自己頂一下
uj5u.com熱心網友回復：
經過測驗可以多次列印的uj5u.com熱心網友回復：
測驗代碼無問題：1、可能是你的系統中列印機設定問題。
2、可以是工程檔案中，與列印拳代碼有問題。
uj5u.com熱心網友回復：
謝謝樓上二位，周一我再試試uj5u.com熱心網友回復：
做一個報表列印撒。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91745.html
上一篇：怎么將image存進list里面
下一篇：幫忙修改下程式