المشاركات : 23
المواضيع 7
:
: 0
الإنتساب : Jan 2009
السلام عليكم
دمتم اخواتي في خدمة هذه الامة - لا تنسو اخواتكم في فلسطين بالدعاء-
لدي اشكال في كيفية تحديد سرعة الطباعة ونوعية الورقة حيث :
اقوم باضهار نافذة حوار عن طريق المكون
PrintDialog ثم النقر على الزر خصائص
للوصول الى جودة الطباعة وخصائص اخرى مثل حجم الورق ....الخ
السؤال هو كيفي الوصول الى هذه المعطيات المدخلة عن طريق هذا المكون
ملاحظة : الطباعة لا تتم عن طريق المكون QuickRep
وشكرا
المشاركات : 23
المواضيع 7
:
: 0
الإنتساب : Jan 2009
السلام لقد وجدت الحل وكل من اراد الكيفية يمكنه الاتصال وانشاء الله نفيده
والسلام عليكم
المشاركات : 9
المواضيع 0
:
: 10
الإنتساب : Apr 2009
السلام عليكم
أخي ما الفائدة في طرح السؤال و الإحتفاظ بالإجابة ؟
المشاركات : 59
المواضيع 12
:
: 0
الإنتساب : May 2009
السلام عليكم
أنا مع الأخ Amos ، كان الواجب عليك تقديم الحل لتعميم الفائدة على الجميع.
لا اله الا انت سبحانك اني كنت من الظالمين
المشاركات : 60
المواضيع 25
:
: 0
الإنتساب : May 2009
السلام عليكم
أنا مع الإخوة في آراءهم
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
بارك الله فيك أخي لو تفيد إخوانك بالحل.
واكتب "إن شاء الله" جزاك الله خيرا.
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
بارك الله فيك أخي لو تفيد إخوانك بالحل.
إقتباس :السلام لقد وجدت الحل وكل من اراد الكيفية يمكنه الاتصال وانشاء الله نفيده
واكتب "إن شاء الله" جزاك الله خيرا.
المشاركات : 23
المواضيع 7
:
: 0
الإنتساب : Jan 2009
13-06-2009, 05:34 PM
(آخر تعديل لهذه المشاركة: 15-03-2015, 08:12 AM بواسطة أبو معاذ.)
السلام عليكم اليكم الرد على السؤال ولكن فبل هد **** ان اوضح انني لم احتفظ بالاجابة ولكن كنت منشغل فقط باشياء اخرى
**** ان تدعو لاخوانكم من فلسطين
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- المعدرة على التاخير وشكرا لتقبلكم الاعتدار
