+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحديد جودة الطباعة (سرعة الطباعة) (/showthread.php?tid=874)
تحديد جودة الطباعة (سرعة الطباعة) - lahcen - 09-05-2009
السلام عليكم
دمتم اخواتي في خدمة هذه الامة - لا تنسو اخواتكم في فلسطين بالدعاء-
لدي اشكال في كيفية تحديد سرعة الطباعة ونوعية الورقة حيث :
اقوم باضهار نافذة حوار عن طريق المكون
PrintDialog ثم النقر على الزر خصائص
للوصول الى جودة الطباعة وخصائص اخرى مثل حجم الورق ....الخ
السؤال هو كيفي الوصول الى هذه المعطيات المدخلة عن طريق هذا المكون
ملاحظة : الطباعة لا تتم عن طريق المكون QuickRep
وشكرا
تحديد جودة الطباعة (سرعة الطباعة) - lahcen - 16-05-2009
السلام لقد وجدت الحل وكل من اراد الكيفية يمكنه الاتصال وانشاء الله نفيده
والسلام عليكم
تحديد جودة الطباعة (سرعة الطباعة) - amos - 16-05-2009
السلام عليكم
أخي ما الفائدة في طرح السؤال و الإحتفاظ بالإجابة ؟
تحديد جودة الطباعة (سرعة الطباعة) - rama - 16-05-2009
السلام عليكم
أنا مع الأخ Amos ، كان الواجب عليك تقديم الحل لتعميم الفائدة على الجميع.
تحديد جودة الطباعة (سرعة الطباعة) - علي - 16-05-2009
إقتباس :السلام عليكم
أخي ما الفائدة في طرح السؤال و الإحتفاظ بالإجابة ؟
إقتباس :السلام عليكم
أنا مع الأخ Amos ، كان الواجب عليك تقديم الحل لتعميم الفائدة على الجميع.
أوافقهم بالرأي أخي و يا ريت لو تعطينا معلومات عن الـQuickRep إذا ممكن
تحديد جودة الطباعة (سرعة الطباعة) - FPS - 26-05-2009
السلام عليكم
أنا مع الإخوة في آراءهم
تحديد جودة الطباعة (سرعة الطباعة) - kachwahed - 26-05-2009
بارك الله فيك أخي لو تفيد إخوانك بالحل.
واكتب "إن شاء الله" جزاك الله خيرا.
تحديد جودة الطباعة (سرعة الطباعة) - kachwahed - 26-05-2009
بارك الله فيك أخي لو تفيد إخوانك بالحل.
إقتباس :السلام لقد وجدت الحل وكل من اراد الكيفية يمكنه الاتصال وانشاء الله نفيدهواكتب "إن شاء الله" جزاك الله خيرا.
تحديد جودة الطباعة (سرعة الطباعة) - lahcen - 13-06-2009
السلام عليكم اليكم الرد على السؤال ولكن فبل هد **** ان اوضح انني لم احتفظ بالاجابة ولكن كنت منشغل فقط باشياء اخرى
**** ان تدعو لاخوانكم من فلسطين
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- المعدرة على التاخير وشكرا لتقبلكم الاعتدار