////////////////////////////////////////////////// THR /////////////////////////////////////////////////
// Wuhan menjelajahi studio komputer //
//http://tansuo.51.net//
////////////////////////////////////////////////// THR /////////////////////////////////////////////////
// Tambahkan untuk menyesuaikan spesifikasi kertas
// Papername: Nama kertas khusus
// Paperwidth: Lebar kertas, dalam satuan 0,1mm
// PaperLength: Ketinggian kertas, dalam satuan 0,1mm
Proceduretdm.addcustompaper (constpapername: string; paperwidth, paperlength: integer);
var
Printdevice, printdriver, printport: array [0..255] ofchar;
HDMode: Thandle;
HPRINTER: Thandle;
Forminfo: tforminfo1;
Mulai
Printer.getPrinter (printDevice, printdriver, printport, hdmode);
OpenPrinter (PrintDevice, HPRINTER, NIL);
ifhprinter = 0then
raiseexception.create ('Bergabung printer gagal!');
WithforminFodo
Mulai
Bendera: = 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;
akhir;
// Ubah jenis kertas, jika tidak, tambahkan yang baru
IfNotSetform (hPrinter, pchar (papername), 1,@forminfo) lalu
AddForm (hPrinter, 1,@forminfo);
ClosePrinter (hPrinter);
akhir;
// Hapus kertas spesifikasi khusus
// Papername: Nama kertas khusus
Proceduretdm.deletecustompaper (constpapername: string);
var
Printdevice, printdriver, printport: array [0..255] ofchar;
HDMode: Thandle;
HPRINTER: Thandle;
Mulai
Printer.getPrinter (printDevice, printdriver, printport, hdmode);
OpenPrinter (PrintDevice, HPRINTER, NIL);
ifhprinter = 0then
raiseexception.create ('Bergabung printer gagal!');
Deleteform (hprinter, pchar (papername));
Closeprinter (hPrinter);
akhir;