請問有關印表機的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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |