Tambahkan kode sumber Delphi untuk kertas khusus di bawah Win2000/XP

////////////////////////////////////////////////// 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;