تحديد جودة الطباعة (سرعة الطباعة)

[lahcen]

السلام عليكم اليكم الرد على السؤال ولكن فبل هد **** ان اوضح انني لم احتفظ بالاجابة ولكن كنت منشغل فقط باشياء اخرى
**** ان تدعو لاخوانكم من فلسطين

1- يمكنكم اولا تحديد بعض المتغيرات مثل نوعية الورق او جودة الطباعة او ... الخ كمايلي

كود :

//--------------------- Format de Page ---------------------------------- Papersize := DMPAPER_A4; FF_page := Forma_Page If FF_Page = 'A3' Then Papersize := DMPAPER_A3 Else If FF_Page = 'A5' Then Papersize := DMPAPER_A5 Else If FF_Page = 'B4' Then Papersize := DMPAPER_B4 .... الخ; //---------------------- Orientation de page ---------------------------- Orientation := DMORIENT_PORTRAIT; OOrient := Orient If OOrient='PAYSAGE' Then Orientation := DMORIENT_LANDSCAPE; //---------------------- Qualite d'impression --------------------------- QQualite := Qualite; Qualite := SmallInt(DMRES_DRAFT); If QQualite = 'RAPIDE' Then Qualite := SmallInt(DMRES_LOW) Else If qQualite = 'STANDARD' Then Qualite := SmallInt(DMRES_MEDIUM) Else If qQualite = 'HAUTE' Then Qualite := SmallInt(DMRES_HIGH); //----------------------------------------------------------------------- 2- تطبيق التغيرات الجديدة للطابعة بالاعدادات الجديدة ويتم عبر المتغير PDevMode كمايلي Printer.GetPrinter(PChar(ADevice), PChar(ADriver), PChar(APort), ADeviceMode); PDevMode := GlobalLock(ADeviceMode) ; Try PDevMode^.dmPaperSize := PaperSize; PdevMode^.dmOrientation:= Orientation; PDevMode^.dmPrintQuality := Qualite; PDevMode^.dmFields := PDevMode^.dmFields or DM_PRINTQUALITY or DM_ORIENTATION Or DM_PAPERSIZE; Printer.SetPrinter(PChar(ADevice), PChar(ADriver), PChar(APort), ADeviceMode); Finally GlobalUnlock(ADeviceMode) ; End; Printer.BeginDoc; ........... .......... النص المراد طباعته ........... ............ Printer.EndDoc;

5- المعدرة على التاخير وشكرا لتقبلكم الاعتدار