เพิ่มซอร์สโค้ด Delphi สำหรับกระดาษที่กำหนดเองภายใต้ win2000/xp

-

// Wuhan สำรวจสตูดิโอคอมพิวเตอร์ //

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

-

// เพิ่มเพื่อปรับแต่งข้อมูลจำเพาะกระดาษ

// papername: ชื่อกระดาษที่กำหนดเอง

// Paperwidth: ความกว้างของกระดาษในหน่วย 0.1 มม.

// paperlength: ความสูงของกระดาษในหน่วย 0.1 มม.

ProcedureTdm.addcustompaper (constpapername: String; Paperwidth, PaperLength: Integer);

วาจา

PrintDevice, PrintDriver, Printport: Array [0..255] OFCHAR;

HDMODE: Thandle;

Hprinter: Thandle;

forminfo: tforminfo1;

เริ่ม

Printer.getPrinter (PrintDevice, PrintDriver, Printport, HDMode);

OpenPrinter (PrintDevice, HPRINTER, NIL);

ifhprinter = 0 แล้ว

RaiseException.create ('การเข้าร่วมเครื่องพิมพ์ล้มเหลว!');

ด้วย forminfodo

เริ่ม

Flags: = 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);

วาจา

PrintDevice, PrintDriver, Printport: Array [0..255] OFCHAR;

HDMODE: Thandle;

Hprinter: Thandle;

เริ่ม

Printer.getPrinter (PrintDevice, PrintDriver, Printport, HDMode);

OpenPrinter (PrintDevice, HPRINTER, NIL);

ifhprinter = 0 แล้ว

RaiseException.create ('การเข้าร่วมเครื่องพิมพ์ล้มเหลว!');

DELETEFORM (HPRINTER, PCHAR (PAPERNAME));

closeprinter (hprinter);

จบ;