Win2000/xp에서 사용자 정의 용지에 대한 Delphi 소스 코드를 추가하십시오

//////////////////////////////////////////////////////////////////////////////////4 ////////////////////////////////4

// Wuhan 탐색 컴퓨터 스튜디오 //

//http://tansuo.51.net//

//////////////////////////////////////////////////////////////////////////////////4 ////////////////////////////////4

// 용지 사양을 사용자 정의하기 위해 추가합니다

// Papername : 사용자 정의 종이 이름

// paperWidth : 종이의 너비, 0.1mm 단위

// paperlength : 종이의 높이, 0.1mm 단위

ProcedUreTdm.AddCustOppaper (constpapername : String; paperWidth, PaperLength : Integer);

var

PrintDevice, Printdriver, Printport : Array [0..255] Ofchar;

hdmode : thandle;

Hprinter : Thandle;

forminfo : tforminfo1;

시작하다

printer.getPrinter (printDevice, printdriver, printport, hdmode);

OpenPrinter (PrintDevice, Hprinter, NIL);

ifhprinter = 0then

Raiseexception.create ( '프린터 가입 실패!');

형태 인 포도

시작하다

플래그 : = form_user;

pname : = pchar (papername);

size.cx:=PaperWidth*100;

size.cy:=PaperLength*100;

imageAblearea.left : = 0;

imageAblearea.top:=0;

imageAblearea.right : = paperWidth*100;

ImageAblearea.Bottom : = PaperLength*100;

끝;

// 용지 유형을 수정하십시오. 그렇지 않은 경우 새 유형을 추가하십시오

ifnotsetform (hprinter, pchar (papername), 1,@forminfo)

addform (hprinter, 1,@forminfo);

ClosePrinter (Hprinter);

끝;

// 사용자 정의 사양 용지를 삭제합니다

// Papername : 사용자 정의 종이 이름

ProcedUreTdm.deleteCustompaper (constpapername : String);

var

PrintDevice, Printdriver, Printport : Array [0..255] Ofchar;

hdmode : thandle;

Hprinter : Thandle;

시작하다

printer.getPrinter (printDevice, printdriver, printport, hdmode);

OpenPrinter (PrintDevice, Hprinter, NIL);

ifhprinter = 0then

Raiseexception.create ( '프린터 가입 실패!');

deleteform (hprinter, pchar (papername));

ClosePrinter (Hprinter);

끝;