الخاصية "وضع_جهاز_الطباعة"

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

تنطبق على

الكائن "نموذج"

الكائن "تقرير"

يمكنك استخدام الخاصيه الخاصيه ل# تعيين او ارجاع معلومات وضع جهاز الطباعه المحدده ل# نموذج او تقرير في مربع الحوار طباعه . القراءه / الكتابه متغير.

تعبير. الخاصيه

expression مطلوب. تعبير يرجع أحد الكائنات الموجودة في القائمة "تنطبق على".

ملاحظات

من المستحسن استشاره مجموعه تطوير البرامج Win32 الخاص ب# وثائق كامله علي خصائص الخاصيهو# برتديفناميسPrtMip .

اعداد الخاصيه الخاصيه هو بنيه 94 البايت يعكس بنيه DEVMODE المعرفه من قبل في مجموعه تطوير البرامج Win32. ل# الحصول علي معلومات كامله حول اعضاء الخاصيه الخاصيه ، راجع مجموعه تطوير البرامج Win32.

تستخدم الخاصيهوضعبرتديفالاعضاء التاليه.

عضو

الوصف

اسماء الاجهزه

يعتمد برنامج التشغيل سلسلة ب# حد اقصي 32 بايت تحدد اسم الجهاز — علي سبيل المثال، "HP LaserJet إيييسي" اذا كان إيييسي LaserJet Hewlett-Packard الطابعه المحدده. يتضمن كل برنامج تشغيل الطابعه سلسله فريده.

سبيكفيرسيون

صحيح يحدد رقم اصدار بنيه DEVMODE في مجموعه تطوير البرامج Win32.

دريفيرفيرسيون

عدد صحيح يحدد رقم اصدار برنامج تشغيل الطابعه المعينه من قبل المطور برنامج تشغيل الطابعه.

الحجم

عدد صحيح يحدد الحجم، ب# البايت بنيه DEVMODE. (لا تتضمن هذه القيمه العضو اختياري دمدريفيرداتا ل# البيانات الخاصه ب# الجهاز، الذي يمكنك اتباع هذه البنيه.) اذا كان تطبيق يعالج جزء مستقله برنامج تشغيل فقط من البيانات، يمكنك استخدام هذا العضو ل# التعرف علي طول هذه البنيه دون الحاجه الي حساب ل# اصدارات مختلفه.

دريفيريكسترا

عدد صحيح يحدد الحجم، ب# البايت، عضو اختياري دمدريفيرداتا ل# البيانات الخاصه ب# الجهاز، الذي يمكنك اتباع هذه البنيه. اذا لم تستخدم تطبيق المعلومات الخاصه ب# الجهاز، ف# يمكنك تعيين هذا العضو الي 0.

حقول

A القيمه طويله تحدد ايا من بقيه الاعضاء في بنيه DEVMODE قد تم تهيئته.

الاتجاه

عدد صحيح يحدد اتجاه الورق. قد يكون 1 (عمودي) او 2 (افقي).

PaperSize

عدد صحيح يحدد حجم الورق ب# الطباعه عليها. اذا قمت ب# تعيين هذا العضو الي 0 او 256، طول و# عرض الورقه هي المحدده ب# واسطه اعضاء PaperLength و PaperWidth، علي التوالي. خلاف ذلك، يمكنك تعيين العضو PaperSize الي قيمه المعرفه مسبقا.

PaperLength

عدد صحيح يحدد طول ورق ب# الوحدات 1 / 10 ميليمتر. يتجاوز هذا العضو طول الورقه المحدده ب# واسطه العضو PaperSize ل# احجام الورق المخصصه او ب# النسبه الي الاجهزه مثل الطابعات النقطيه يمكنها الطباعه علي العديد من احجام الورق.

PaperWidth

عدد صحيح يحدد عرض الصفحه ب# الوحدات 1 / 10 ميليمتر. يتجاوز هذا العضو عرض الورقه المحدده ب# واسطه العضو PaperSize.

المقياس

عدد صحيح يحدد العوامل التي سيتم تحجيم الاخراج المطبوع. يتم تغيير حجم حجم الصفحه الظاهريه من حجم الصفحه الفعليه ب# عامل مقياس/100. علي سبيل المثال، يتضمن قطعه ورق قياس 8.5 في 11 بوصه (حجم الرساله) تحتوي علي قيمه مقياس من 50 قدر بيانات مثل صفحه ب# حجم 17 في 22 بوصه ل# ان تكون الاخراج النص و# الرسومات نصف الخاصه بهم الاصلي الارتفاع و# العرض.

نُسخ

طباعه عدد صحيح يحدد عدد النسخ اذا كان جهاز الطباعه يدعم نسخ متعدده الصفحات.

ديفاولتسورسي

عدد صحيح يحدد سله الافتراضي الذي يتم التغذيه ب# الورق.

PrintQuality

عدد صحيح يحدد دقه الطابعه. يتم القيم – 4 (مرتفع) – 3 (متوسط)، و# – 2 (منخفض) و – 1 (مسوده).

اللون

عدد صحيح. ل# طابعه ب# الوان، تحديد ما اذا كان الاخراج هو طباعه ب# الالوان. هي القيم 1 (لون) و 2 (احادي اللون).

الاتجاه

عدد صحيح. المتعلقه ب# طابعه يمكنها الطباعه المزدوجه، تحديد ما اذا كان الاخراج هو طباعه علي كلا وجهي الورقه. يتم القيم وجهي و 2 (افقي) و 3 (عمودي).

يريسولوتيون

عدد صحيح يحدد الدقه ص الطابعه في نقطه في البوصه (dpi). اذا كانت الطابعه تهيئه هذا العضو، يحدد العضو PrintQuality الدقه الطابعه في البوصه.

TTOption

عدد صحيح يحدد كيفيه طباعه خطوط TrueType.

يتم ترتيب

عدد صحيح يحدد ما اذا كان يجب استخدام الترتيب عند طباعه نسخ متعدده. يوفر استخدام النسخ غير مرتبه الاخراج اسرع و# اكثر كفاءه، ب# ما ان يتم ارسال البيانات الي الطابعه مره واحده فقط.

اسم _ النموذج

سلسله ذات حرفا ك# حد اقصي 16 يحدد حجم الورق ل# استخدام؛ علي سبيل المثال، "حرف" او "القانوني".

لوحه

قيمه طويله تستخدم ل# تنظيم مسافات او احرف القيم ل# اصدارات مستقبليه.

وحدات البت

قيمه طويله التي تحدد ب# بت في البكسل دقه الالوان ل# جهاز العرض.

حص

قيمه طويله يحدد العرض، سطح جهاز (شاشه او طابعه) بالبكسل.

PH

قيمه طويله تحدد الارتفاع، سطح جهاز (شاشه او طابعه) بالبكسل.

رقم

قيمه طويله تحدد وضع العرض علي الجهاز.

دفر

قيمه طويله تحدد معدل التكرار، في هرتز (دورات الثانيه)، ل# جهاز العرض في وضع محدد.


ملاحظة: يمكنك تعيين الخاصيه الخاصيه استخدام Visual Basic for Applications (VBA) التعليمات البرمجيه.

يكون اعداد هذه الخاصيه القراءه / الكتابه في طريقه عرض التصميم او طريقه عرض "تخطيط"، و# القراءه فقط في طرق العرض الاخري.

يمكنك اضافه برامج تشغيل الطابعه مباشره بعد 94 بايت بنيه DEVMODE البيانات الخاصه ب# الجهاز. ل# ذلك، من المهم ان البيانات DEVMODE اعلاه يتجاوز 94 بايت.

استخدم فقط برامج تشغيل الطابعه تصدير الداله اكستديفيسيمودي بنيه DEVMODE.

استرداد تطبيق احجام الورق و# اسماء معتمدا ب# واسطه طابعه ب# استخدام القيم DC_PAPERS و DC_PAPERSIZE DC_PAPERNAMES ل# استدعاء الداله ديفيسيكابابيليتيس .

قبل تعيين قيمه عضو TTOption، يجب ان تعرف التطبيقات علي كيفيه استخدام برنامج تشغيل طابعه خطوط TrueType ب# استخدام قيمه DC_TRUETYPE ل# استدعاء الداله ديفيسيكابابيليتيس .

مثال

يستخدم المثال التالي الخاصيه الخاصيه ل# التحقق من حجم الصفحه المعرفه من قبل المستخدم ل# تقرير:

Private Type str_DEVMODE
RGB As String * 94
End Type
Private Type type_DEVMODE
strDeviceName As String * 32
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer
intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 32
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type
Public Sub CheckCustomPage(ByVal rptName As String)
Dim DevString As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
Dim intResponse As Integer
' Opens report in Design view.
DoCmd.OpenReport rptName, acDesign
Set rpt = Reports(rptName)
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode
' Gets current DEVMODE structure.
DevString.RGB = strDevModeExtra
LSet DM = DevString
If DM.intPaperSize = 256 Then
' Display user-defined size.
intResponse = MsgBox("The current custom page size is " & _
DM.intPaperWidth / 254 & " inches wide by " & _
DM.intPaperLength / 254 & " inches long. Do you want " & _
"to change the settings?", vbYesNo + vbQuestion)
Else
' Currently not user-defined.
intResponse = MsgBox("The report does not have a custom page size. " & _
"Do you want to define one?", vbYesNo + vbQuestion)
End If
If intResponse = vbYes Then
' User wants to change settings. Initialize fields.
DM.lngFields = DM.lngFields Or DM.intPaperSize Or _
DM.intPaperLength Or DM.intPaperWidth
' Set custom page.
DM.intPaperSize = 256
' Prompt for length and width.
DM.intPaperLength = InputBox("Please enter page length in inches.") * 254
DM.intPaperWidth = InputBox("Please enter page width in inches.") * 254
' Update property.
LSet DevString = DM
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra
End If
End If
Set rpt = Nothing
End Sub

يوضح المثال التالي كيفيه تغيير اتجاه التقرير. يقوم هذا المثال التبديل الاتجاه من العمودي الي الاتجاه الافقي او الاتجاه الافقي الي العمودي استنادا الي الاتجاه الحالي ل# التقرير.

Public Sub SwitchOrient(ByVal strName As String)
Const DM_PORTRAIT = 1
Const DM_LANDSCAPE = 2
Dim DevString As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
' Opens report in Design view.
DoCmd.OpenReport strName, acDesign
Set rpt = Reports(strName)
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode
DevString.RGB = strDevModeExtra
LSet DM = DevString
DM.lngFields = DM.lngFields Or DM.intOrientation
' Initialize fields.
If DM.intOrientation = DM_PORTRAIT Then
DM.intOrientation = DM_LANDSCAPE
Else
DM.intOrientation = DM_PORTRAIT
End If
' Update property.
LSet DevString = DM
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra
End If
Set rpt = Nothing
End Sub

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×