////////////////////////////////////////////////////////////// /////////////////////////////
// Wuhan استكشاف Computer Studio //
//http://tansuo.51.net//
////////////////////////////////////////////////////////////// /////////////////////////////
// أضف لتخصيص مواصفات الورق
// papername: اسم الورق المخصص
// paperwidth: عرض الورقة ، بوحدات 0.1 مم
// paperlength: ارتفاع الورق ، بوحدات 0.1 مم
الإجراءات.
var
PrintDevice ، printdriver ، printport: Array [0..255] ofchar ؛
Hdmode: Thandle ؛
Hprinter: Thandle ؛
forminfo: tforminfo1 ؛
يبدأ
printer.getPrinter (printDevice ، printdriver ، printport ، hdmode) ؛
OpenPrinter (printDevice ، hprinter ، nil) ؛
ifhprinter = 0then
raiseexception.create ('فشل الانضمام الطابعة!') ؛
withForminFodo
يبدأ
أعلام: = form_user ؛
pname: = pchar (papername) ؛
size.cx:=paperwidth*100 ؛
size.cy:=paperlength*100 ؛
ImageAblearea.left: = 0 ؛
ImageBlearea.top:=0 ؛
ImageAblearea.right: = paperwidth*100 ؛
ImageBleArea.bottom: = paperlength*100 ؛
نهاية؛
// قم بتعديل نوع الورق ، إن لم يكن ، أضف نماذج جديدة
ifnotsetform (hprinter ، pchar (papername) ، 1 ،@forminfo) ثم
addForm (hprinter ، 1 ،@forminfo) ؛
ClosePrinter (hprinter) ؛
نهاية؛
// حذف ورقة المواصفات المخصصة
// papername: اسم الورق المخصص
الإجراءات.
var
PrintDevice ، printdriver ، printport: Array [0..255] ofchar ؛
Hdmode: Thandle ؛
Hprinter: Thandle ؛
يبدأ
printer.getPrinter (printDevice ، printdriver ، printport ، hdmode) ؛
OpenPrinter (printDevice ، hprinter ، nil) ؛
ifhprinter = 0then
raiseexception.create ('فشل الانضمام الطابعة!') ؛
DELETEFORM (HPRINTER ، PCHAR (papername)) ؛
ClosePrinter (hprinter) ؛
نهاية؛