全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2717
推到 Plurk!
推到 Facebook!

用Printer()列印非A4紙張的換頁問題

尚未結案
windheartalan
一般會員


發表:21
回覆:23
積分:8
註冊:2005-03-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-05-07 08:20:31 IP:203.66.xxx.xxx 訂閱
各位大大好,利用Printer()來做列印的功能,小弟已經知道如何利用,
但現在小弟碰到一個問題,

當我列印完一份我要印的東西,使用Printer->EndDoc()後,
都會跳約A4大小的紙張高度後,下一份才會開始印,

也就是說,採用不同於A4格式的紙張列印時,我不知道要如何通知印表機,
根據該紙張格式正確的換頁,或是說有辦法設定紙張的大小?

請問有人可以指點一下嗎? 在這先謝謝各位了
shunaaron
高階會員


發表:13
回覆:94
積分:106
註冊:2006-10-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-05-09 01:57:46 IP:220.134.xxx.xxx 訂閱
去設一台印表機出來~
把印表機名字取如:dd
並選好要Print的紙張大小
程式那去uses Printers
在程式式要PRINT時
寫一段
indx := Printer.Printers.IndexOf('dd') ;
if indx <> -1 then bgin
再將indx指向你的print
end;
這樣就OK了
===================引 用 windheartalan 文 章===================
各位大大好,利用Printer()來做列印的功能,小弟已經知道如何利用,
但現在小弟碰到一個問題,

當我列印完一份我要印的東西,使用Printer->EndDoc()後,
都會跳約A4大小的紙張高度後,下一份才會開始印,

也就是說,採用不同於A4格式的紙張列印時,我不知道要如何通知印表機,
根據該紙張格式正確的換頁,或是說有辦法設定紙張的大小?

請問有人可以指點一下嗎? 在這先謝謝各位了
------
程式沒有這麼難
只是還沒打通其中要絕
編輯記錄
shunaaron 重新編輯於 2008-05-09 01:59:20, 註解 無‧
windheartalan
一般會員


發表:21
回覆:23
積分:8
註冊:2005-03-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-05-09 09:59:12 IP:59.120.xxx.xxx 訂閱
首先謝謝shunaaron大大的回覆,
但當中還有疑問未解,

所謂的"把印表機名字取如:dd",是指宣告dd為Printer嗎? 比方說是這樣? TPrinter *dd= Printer();

再者,"選好要Print的紙張大小",我就是這個部份不知道,
請問可否稍微說明詳細些,或是舉個實例,非常感謝~

===================引 用 shunaaron 文 章===================
去設一台印表機出來~
把印表機名字取如:dd
並選好要Print的紙張大小
程式那去uses Printers
在程式式要PRINT時
寫一段
indx := Printer.Printers.IndexOf('dd') ;
if indx <> -1 then bgin
再將indx指向你的print
end;
這樣就OK了
===================引 用 windheartalan 文 章===================
各位大大好,利用Printer()來做列印的功能,小弟已經知道如何利用,
但現在小弟碰到一個問題,

當我列印完一份我要印的東西,使用Printer->EndDoc()後,
都會跳約A4大小的紙張高度後,下一份才會開始印,

也就是說,採用不同於A4格式的紙張列印時,我不知道要如何通知印表機,
根據該紙張格式正確的換頁,或是說有辦法設定紙張的大小?

請問有人可以指點一下嗎? 在這先謝謝各位了
shunaaron
高階會員


發表:13
回覆:94
積分:106
註冊:2006-10-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-05-09 14:50:20 IP:59.124.xxx.xxx 訂閱
1.首先印表機名字是指
去控制台新增一台印表機(看要取什麼名字)
並先將要印的紙張選好

2.另一個問題,如以下範例

//以下是以QuickRep為範例
ppint := Printer.Printers.IndexOf('dd');
if ppint <> -1 then begin
QuickRep1.PrinterSettings.PrinterIndex := ppint;
QuickRep1.Prepare;
QuickRep1.Print;
end else begin
showMessage('找不到印表機');
QuickRep1.Preview;
end;

===================引 用 windheartalan 文 章===================
首先謝謝shunaaron大大的回覆,
但當中還有疑問未解,

所謂的"把印表機名字取如:dd",是指宣告dd為Printer嗎? 比方說是這樣? TPrinter *dd= Printer();

再者,"選好要Print的紙張大小",我就是這個部份不知道,
請問可否稍微說明詳細些,或是舉個實例,非常感謝~

===================引 用 shunaaron 文 章===================
去設一台印表機出來~
把印表機名字取如:dd
並選好要Print的紙張大小
程式那去uses Printers
在程式式要PRINT時
寫一段
indx := Printer.Printers.IndexOf('dd') ;
if indx <> -1 then bgin
再將indx指向你的print
end;
這樣就OK了
===================引 用 windheartalan 文 章===================
各位大大好,利用Printer()來做列印的功能,小弟已經知道如何利用,
但現在小弟碰到一個問題,

當我列印完一份我要印的東西,使用Printer->EndDoc()後,
都會跳約A4大小的紙張高度後,下一份才會開始印,

也就是說,採用不同於A4格式的紙張列印時,我不知道要如何通知印表機,
根據該紙張格式正確的換頁,或是說有辦法設定紙張的大小?

請問有人可以指點一下嗎? 在這先謝謝各位了
------
程式沒有這麼難
只是還沒打通其中要絕
系統時間:2024-04-19 22:45:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!