大家好，小弟目前遇到delphi報表列印發票問題，問題如下懇請大大幫忙
在QuickRep右鍵的report settings 設定 成自訂發票格式
paper size 為Custom size width 242 length 140
但列印時印表機印完之後皆會吐出半張空白頁，比對之後，列印出來的格式為A4大小,
參考板上其他文章後 在程式碼加入
QuickReportA.Page.PaperSize:=Custom;
QuickReportA.Page.Orientation:=poportrait;
QuickReportA.Page.Width:=242.0;
QuickReportA.Page.Length:=140.0;
QuickReportA.PRINT;
但執行出現undeclared identifier:='custom'
undeclared identifier:='poportrait'
不知道問題原因為何，小弟目前才接觸delphi一個多月，麻煩各位幫忙

你好:
請問印表機有設定嘛(實體印表機
請到有連接印表機的電腦上
[開始]>>[設定]>>[印表機]
左上[檔案]>>[伺服器內容]
設定你要的格式在指定給印表機

------
======================
昏睡~
不昏睡~
不由昏睡~

===================引 用 ko 文 章===================
你好:
請問印表機有設定嘛(實體印表機
請到有連接印表機的電腦上
[開始]>>[設定]>>[印表機]
左上[檔案]>>[伺服器內容]
設定你要的格式在指定給印表機

稍早已確認過連接印表機的電腦設定列印格式為發票
設定格式無誤，但還是會發生列印發票格式問題，懇請大大協助

uses QRPrntr;

===================引 用 hagar 文 章===================
>>uses QRPrntr;

謝謝大大幫助，已解決錯誤訊息，但發票印表機印完還是吐出一段空白，格式並沒有變成我自訂的大小，請問是不是還有需要修改的地方呢?

有MAIL嘛 我貼圖給你看看

------
======================
昏睡~
不昏睡~
不由昏睡~

mail已發短訊給大大了 ，再麻煩了，謝謝

有收到我的MAIL嘛
圖中的印表紙張格式跟程式中的CUSTOM要對應
程式才能正確印出你指定的格式

------
======================
昏睡~
不昏睡~
不由昏睡~

大大我有收到您的mail了，並且有回信給您，
另外我還是有些疑慮，就是分享印表機的電腦
使用的印表機Epson LQ-1170C，內部已有一個名為發票的列印格式
格式名稱: 發票
單位 公制(M)
紙張大小: 印表機範圍邊界:
寬度:34.97公分 左 0公分上0公分
高度:13.97公分 右 0公分下0公分

有四點疑問
1.這樣原先已有預設這個發票格式，我還需要在建立一個custom嗎?

2.report setting 已有設定custom 格式
,程式碼還需要再加入這幾行嗎?
QuickReportA.Page.PaperSize:=Custom;
QuickReportA.Page.Orientation:=poportrait;
QuickReportA.Page.Width:=349.70;
QuickReportA.Page.Length:=139.70;
QuickReportA.PRINT;

3.我發現該印表機伺服器設定的紙張大小與程式碼和report setting不同,那我是否該調整為印表機設定的大小?

4.有被分享使用發票印表機列印的電腦，印表機伺服器是否都要設定一個與開分享的電腦一樣的紙張格式?
問題有點多又長，在麻煩大大了，謝謝。
===================引 用 ko 文 章===================
有收到我的MAIL嘛
圖中的印表紙張格式跟程式中的CUSTOM要對應
程式才能正確印出你指定的格式

編輯記錄

===================引 用 fortunate1986 文 章===================
大大我有收到您的mail了，並且有回信給您，
另外我還是有些疑慮，就是分享印表機的電腦
使用的印表機Epson LQ-1170C，內部已有一個名為發票的列印格式
格式名稱: 發票
單位 公制(M)
紙張大小: 印表機範圍邊界:
寬度:34.97公分 ? 左 0公分上0公分
高度:13.97公分 ? 右 0公分下0公分

有四點疑問
1.這樣原先已有預設這個發票格式，我還需要在建立一個custom嗎?
ANS:不用

2.report setting 已有設定custom 格式??
,程式碼還需要再加入這幾行嗎?
?? QuickReportA.Page.PaperSize:=Custom;
? QuickReportA.Page.Orientation:=poportrait;
? QuickReportA.Page.Width:=349.70;
? QuickReportA.Page.Length:=139.70;
? QuickReportA.PRINT;
ANS:Page不用 (但是你的QuickRep1的Report settings必須設定成與格式名稱: 發票相同大小)
註:在QuickRep1上按右鍵可以編輯Report settings

3.我發現該印表機伺服器設定的紙張大小與程式碼和report setting不同,那我是否該調整為印表機設定的大小?
ANS:同上(因為設定Page是沒有用的...哈哈哈)

4.有被分享使用發票印表機列印的電腦，印表機伺服器是否都要設定一個與開分享的電腦一樣的紙張格式?
問題有點多又長，在麻煩大大了，謝謝。
ANS:只需要再連接印表機上那台有設定就可以了(這台就是你指的分享使用發票印表機列印的電腦)

===================引 用 ko 文 章===================
有收到我的MAIL嘛
圖中的印表紙張格式跟程式中的CUSTOM要對應
程式才能正確印出你指定的格式

------
======================
昏睡~
不昏睡~
不由昏睡~

稍早測試了一下，更改report setting 邊界印出來資料會跟著移動
把紙張大小改成印表機設定的大小 ，但依然還是沒變，還是多吐一張空白發票紙
煩請幫忙謝謝。

把印表機的預設紙張改成CUSTOM試試看

------
======================
昏睡~
不昏睡~
不由昏睡~

回大大  還是不行耶.....
是否我還需提供什麼資訊，以利解決呢?

剛好路過來亂一下
你的印表機 Epson LQ-1170C 是否為作業系統開機後自動偵測安裝的呢?
若是
請額外手動加裝 Epson LQ-1170 ESC/P 2 印表機並設為預設
然後再試印看看
若可
就將 LQ-1170C 就把它設定成暫停列印，不要刪除不然每次電腦開機都會自動辨識

此乃我多年前痛苦鑽研多日所摸索出來之功法
至今每每教導新進同事使用都嘖嘖稱奇

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/

問題很蠻棘手的
試試看 先將印表機關機
然後按住[重置]的鈕(就是改變字型的那顆)
在打開開關
他會指示你如何操作
並且請注意你設定的 發票 是否=連續報表紙頁長設定
裡面的格式,一般都是 IN 制
如果可以就把印表機的預設紙張也改成IN制
然後看看各項QR的設定是否也改成 IN
IN=英吋
5.5 IN=13.9 CM
應該是吧!!

------
======================
昏睡~
不昏睡~
不由昏睡~

編輯記錄

各位大大好，前鎮子因為花再多時間在此程式上，先處理其他問題
今天剛好有空，花了一整天再測試、爬文，終於在找到問題點了
言歸正傳
問題原因好像是跟OS有關
看一些友站文章有提到
好像是quick rep 若要調整報表格式
->os 為 2000 XP 格式要使用 Default size調整長寬
-> 為 98 ME 格式要使用 custom size調整長寬
此程式上次修改日為2006年.... 也不知道前人是用何種OS修改
更正用Default size修改後，所列印出發票格式即正常。