-
// 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);
จบ;