السلام عليكم
دمتم اخواتي في خدمة هذه الامة - لا تنسو اخواتكم في فلسطين بالدعاء-
لدي اشكال في كيفية تحديد سرعة الطباعة ونوعية الورقة حيث :
اقوم باضهار نافذة حوار عن طريق المكون
PrintDialog ثم النقر على الزر خصائص
للوصول الى جودة الطباعة وخصائص اخرى مثل حجم الورق ....الخ
السؤال هو كيفي الوصول الى هذه المعطيات المدخلة عن طريق هذا المكون
ملاحظة : الطباعة لا تتم عن طريق المكون QuickRep
وشكرا
السلام لقد وجدت الحل وكل من اراد الكيفية يمكنه الاتصال وانشاء الله نفيده
والسلام عليكم
السلام عليكم
أخي ما الفائدة في طرح السؤال و الإحتفاظ بالإجابة ؟
السلام عليكم
أنا مع الأخ Amos ، كان الواجب عليك تقديم الحل لتعميم الفائدة على الجميع.
إقتباس :السلام عليكم
أخي ما الفائدة في طرح السؤال و الإحتفاظ بالإجابة ؟
إقتباس :السلام عليكم
أنا مع الأخ Amos ، كان الواجب عليك تقديم الحل لتعميم الفائدة على الجميع.
أوافقهم بالرأي أخي و يا ريت لو تعطينا معلومات عن الـQuickRep إذا ممكن
السلام عليكم
أنا مع الإخوة في آراءهم
بارك الله فيك أخي لو تفيد إخوانك بالحل.
واكتب "إن شاء الله" جزاك الله خيرا.
السلام عليكم اليكم الرد على السؤال ولكن فبل هد **** ان اوضح انني لم احتفظ بالاجابة ولكن كنت منشغل فقط باشياء اخرى
**** ان تدعو لاخوانكم من فلسطين
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- المعدرة على التاخير وشكرا لتقبلكم الاعتدار