如何指定印表機列印份數~~~ |
|
|
|
rich777
一般會員   發表：25 回覆：25 積分：10 註冊：2002-04-22 發送簡訊給我 |
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
天外來客
初階會員 發表：22 回覆：199 積分：44 註冊：2001-11-27 發送簡訊給我 |
感謝站長大人回應.....
我好像有寫錯了....
故將列印程式碼貼上來...
目前以迴圈方式處理張數問題...
但還是很想知道有無較簡單的方式解決....謝謝 PS1 : TPrinterSetupDialog;
PrintSet1 : TPrintSet;
X,Y,L,H,P : Integer;
Pages : String;
begin
X:=200; Y:=0; L:=0; H:=60;
PS1 := TPrinterSetupDialog.create(Nil);
PrintSet1 := TPrintSet.create(Nil); PrintSet1.ResetPrinterDialogs;
PrintSet1.PaperLength := 640;
PrintSet1.PaperWidth := 1150;
PrintSet1.PaperSize := dmPaper_User;
PrintSet1.Orientation := dmorient_Portrait; // 直印
//dmorient_Landscape; // 橫印 Pages:=InputBox('列印張數', '請輸入列印張數 :', '');
if Pages = '' then
P:=0
else
P:=StrToInt(Pages); if P<>0 then
begin
if PS1.Execute then
begin
while P<>0 do
begin
try
Printer.Begindoc;
printer.Canvas.Font.Name:='細明體';
printer.Canvas.Font.size:=12;
Printer.Canvas.Textout(X,Y,ME_Mat.Text); Y:=Y H;
Printer.Canvas.Textout(X,Y,ME_Spec.Text); Y:=Y H;
H:=50;
Printer.Canvas.Textout(X,Y,ME_Qty.Text); Y:=Y H;
Printer.Canvas.Textout(X,Y,'佳邦'); Y:=Y H;
Printer.Canvas.Textout(X,Y,ME_CDate.Text); Y:=Y H;
Printer.Canvas.Textout(X,Y,LFormat(ME_IPNO.Text,15) SPACE(13) RFormat(ME_NET.Text,6)); Y:=Y H;
Printer.Canvas.Textout(X,Y,LFormat(ME_PONO.Text,15) SPACE(13) RFormat(ME_GROSS.TEXT,6)); Y:=Y H;
X:=200; Y:=0; L:=0; H:=60;
finally
Printer.Enddoc;
end;
P:=P-1;
end;
end;
end;
PS1.Free;
PrintSet1.Free;
end;
|
|
kadee
高階會員 發表：11 回覆：141 積分：165 註冊：2002-03-20 發送簡訊給我 |
發表時間：2002-08-07 11:55:15
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-11-23 7:19:19
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |