請問有關印表機的function的用法 |
|
尚未結案
|
|
ico2004
一般會員   發表：1 回覆：2 積分：0 註冊：2004-08-17 發送簡訊給我 |
|
|
shinjie
資深會員  發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
提供資料給您參考看看，抱歉我沒測試過 int Escape( HDC hdc, // handle to device context 印表機控制碼
int nEscape, // escape function 控制碼
int cbInput, // number of bytes in input structure 輸入資料位元組數
LPCSTR lpvInData, // pointer to input structure 控制碼輸入資料結構
LPVOID lpvOutData // pointer to output structure 控制碼返回資料結構
); 範例如下：
Var
PageMargin:Tpoint;
MyEscape:Integer;
Begin
PageMargin.x:=0;
PageMargin.y:=0;
MyEscape:=GETPRINTINGOFFSET;
if Escape(Printer.Canvas.Handle,QUERYESCSUPPORT,Sizeof(MyEscape),@MyEscape,Nil)>0 then
//監測驅動程式是否支援該控制碼
begin
if Escape(printer.canvas.handle,GETPRINTINGOFFSET,0,nil,@PageMargin)<=0
//調用成功後返回>0
then begin
PageMargin.x:=0;
PageMargin.y:=0;
end;
end;
end;
如果要換行，LPCSTR 傳入#13#10 資料來源：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=507125
------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。 得之；我幸。不得；我命。 |
|
ico2004
一般會員 發表：1 回覆：2 積分：0 註冊：2004-08-17 發送簡訊給我 |
|
|
shinjie
資深會員 發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
|
|
ico2004
一般會員 發表：1 回覆：2 積分：0 註冊：2004-08-17 發送簡訊給我 |
發表時間：2004-12-22 10:47:31
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-06-24 20:51:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |