Добавить исходный код Delphi для пользовательской бумаги в Win2000/XP

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S

// Ухан исследуйте компьютерную студию //

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

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S

// Добавить, чтобы настроить спецификацию бумаги

// имя папор: пользовательское имя бумаги

// Проверка бумаги: ширина бумаги, в единицах 0,1 мм

// Длина бумаги: высота бумаги, в единицах 0,1 мм

ProcecuuretDM.Addcustompaper (ConstpaperName: String; Paperwidth, Paperlength: Integer);

вар

PrintDevice, printDriver, printport: массив [0..255] ofChr;

HDMode: Thandle;

Hprinter: Тандл;

Forminfo: tforminfo1;

Начинать

Printer.getprinter (printdevice, printdriver, printport, hdmode);

OpenPrinter (PrintDevice, Hprinter, NIL);

ifhprinter = 0then

raiseexception.create ('присоединение к принтеру не удалось!');

с формаминфодо

Начинать

Флаги: = form_user;

pname: = pchar (papername);

Size.cx:=paperwidth*100;

Size.cy:=paperlength*100;

Imageablearea.left: = 0;

Imageablearea.top:=0;

Imageablearea.right: = Waperwidth*100;

Imageablearea.bottom: = Paperlength*100;

конец;

// Измените тип бумаги, если нет, добавьте новые

ifnotsetform (hprinter, pchar (papername), 1,@forminfo)

Addform (hprinter, 1,@forminfo);

ClosPrinter (Hprinter);

конец;

// Удалить пользовательскую спецификационную бумагу

// имя папор: пользовательское имя бумаги

Procecuuretdm.deleteCustompaper (ConstpaperName: String);

вар

PrintDevice, printDriver, printport: массив [0..255] ofChr;

HDMode: Thandle;

Hprinter: Тандл;

Начинать

Printer.getprinter (printdevice, printdriver, printport, hdmode);

OpenPrinter (PrintDevice, Hprinter, NIL);

ifhprinter = 0then

raiseexception.create ('присоединение к принтеру не удалось!');

Deleteform (hprinter, pchar (papername));

ClosPrinter (Hprinter);

конец;