Adicione o código -fonte Delphi para papel personalizado em Win2000/XP

/////////////////////////////////////////////////////////Tipos //////////////////////////

// Wuhan explora o estúdio de computadores //

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

/////////////////////////////////////////////////////////Tipos //////////////////////////

// Adicionar para personalizar a especificação do papel

// nome de papel: nome de papel personalizado

// largura de papel: a largura do papel, em unidades de 0,1 mm

// comprimento de papel: a altura do papel, em unidades de 0,1 mm

ProcedureTDM.AddcustompAper (ConstPapername: String; PaperWidth, PaperLength: Integer);

var

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

HDMODE: THANDLE;

HPRINTRO: THANDLE;

FormInfo: tforminfo1;

Começar

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

OpenPrinter (PrintDevice, Hprinter, Nil);

ifhprinter = 0then

raiseexception.create ('junção da impressora falhou!');

comFormInfodo

Começar

Sinalizadores: = form_user;

pname: = pchar (nome de papel);

Size.cx:=paperWidth*100;

Size.cy:=paperLength*100;

Imageablearea.left: = 0;

Imageablearea.top:=0;

Imageablearea.right: = paperwidth*100;

Imageablearea.bottom: = PaperLength*100;

fim;

// modifica o tipo de papel, se não, adicione novos

IFNOTSETFORM (HPRINTER, PCHAR (NAME), 1,@formInfo) então

AddForm (hprinter, 1,@forminfo);

Closeprinter (hprinter);

fim;

// Excluir papel de especificação personalizada

// nome de papel: nome de papel personalizado

ProcedureTDM.DeleteCustompAper (ConstPapername: String);

var

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

HDMODE: THANDLE;

HPRINTRO: THANDLE;

Começar

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

OpenPrinter (PrintDevice, Hprinter, Nil);

ifhprinter = 0then

raiseexception.create ('junção da impressora falhou!');

DeLeteForm (hprinter, PCHO (nome de papel));

Closeprinter (hprinter);

fim;