Fügen Sie den Delphi -Quellcode für benutzerdefiniertes Papier unter Win2000/XP hinzu

////////////////////////////////////////////////// ////////////////////////////////////////////////

// Wuhan erforschen Computerstudio //

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

////////////////////////////////////////////////// ////////////////////////////////////////////////

// Hinzufügen, um die Papierspezifikation anzupassen

// Papername: benutzerdefinierter Papiername

// Paperwidth: Die Breite des Papiers in Einheiten von 0,1 mm

// Paperlänge: die Höhe des Papiers in Einheiten von 0,1 mm

Proceduretdm.addcustompaper (konstapername: string; paperwidth, paperlength: Integer);

var

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

HDMode: Thandle;

Hprinter: Thandle;

FormInfo: tformInfo1;

Beginnen

Printer.getPRINTER (printDevice, PrintDriver, Printport, HDMode);

OpenPrinter (printDevice, hprinter, nil);

ifHprinter = 0Then

Raisexception.create ('mit dem Drucker angeschlossen fehlgeschlagen!');

mit Forminfodo

Beginnen

Flags: = form_user;

pName: = pchar (Papername);

Size.cx:=paperwidth*100;

Größe.cy:=paperLength*100;

ImageAblearea.Left: = 0;

ImageAblearea.top:=0;

ImageAblearea.Right: = Paperwidth*100;

ImageAblearea.Bottom: = Paperlength*100;

Ende;

// Ändern Sie den Papiertyp, wenn nicht, neue fügen Sie neue hinzu

ifnotSetForm (hprinter, pchar (Papername), 1,@formInfo) dann

Addform (Hprinter, 1,@formInfo);

Closeprinär (HPRINTER);

Ende;

// benutzerdefinierte Spezifikationsdapier löschen

// Papername: benutzerdefinierter Papiername

proceduretdm.DeletCustompaper (Constpapername: String);

var

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

HDMode: Thandle;

Hprinter: Thandle;

Beginnen

Printer.getPRINTER (printDevice, PrintDriver, Printport, HDMode);

OpenPrinter (printDevice, hprinter, nil);

ifHprinter = 0Then

Raisexception.create ('Drucker fehlgeschlagen!');

DeleteForm (Hprinter, pchar (Papername));

Closeprinär (HPRINTER);

Ende;