כיצד להפוך את תהליך בחירת המדפסת עבור דוח לאוטומטי ב- Microsoft Access

משתמש חדש: דורש ידע לגבי ממשק המשתמש במחשבים של משתמש יחיד.

מאמר זה חל על קובץ מסד נתונים של Microsoft Access (.mdb) או מסד נתונים של Microsoft Access (.accdb).

סיכום

אם ברצונך להדפיס דוח במדפסת מסוימת, באפשרותך לבחור באופן ידני את המדפסת ואת כל אפשרויות ההדפסה, או להפוך את התהליך לאוטומטי כך שלחיצה על לחצן תוכל להחליף מדפסות ולאחר מכן להדפיס את הדוח עם האפשרויות שאתה מזין מראש. מאמר זה מסביר כיצד להפוך את תהליך בחירת המדפסת לאוטומטי.

מידע נוסף

הליך זה משתמש בשתי דוגמאות:

• הדפסה במדפסת לייזר.
• הדפסה במדפסת סיכות.

באפשרותך להחליף את המדפסות המסוימת שבהן ברצונך להשתמש. כדי להפוך את תהליך בחירת המדפסת עבור דוח מסוים לאוטומטי, בצע את הפעולות הבאות:

1. צור את שלושת הדוחות הבאים:

   • rptLaserPrinter
   • 20160 2016 2016
   • rptMyReport

   הערה

   rptMyReport מייצג את הדוח בפועל שברצונך להדפיס.

2. כדי להגדיר את אפשרויות המדפסת, בצע את הפעולות הבאות:

   1. פתח את rptLaserPrinter בתצוגת עיצוב.

   2. בתפריט קובץ, לחצו על הדפס.

      הערה

      ב- Access 2007 או בגירסה מתקדמת יותר, לחץ על לחצן Microsoft Office ולאחר מכן לחץ על הדפס.

   3. בתיבת הדו-שיח הדפסה, לחץ על מדפסת הלייזר שבה ברצונך להשתמש בתיבה שם ולאחר מכן לחץ על אישור.

   4. לחץ על מאפיינים, הגדר את אפשרויות ההדפסה הרצויות, כגון כיוון ההדפסה וגודל הנייר ולאחר מכן לחץ על אישור.

   5. חזור על שלבים א' עד ד' עבור rptDotMatrix. לחץ על מדפסת סיכות בשלב c.

3. בחלון מסד נתונים, לחץ על מודולים, לחץ על חדש ולאחר מכן הקלד את הפונקציה הבאה:

   הערה

   ב- Access 2007 או בגירסה מתקדמת יותר, לחץ על מודול בקבוצה אחר בכרטיסיה יצירה.

   Function ChangePrinter(rptToChange As String, rptPrinter As String)
   
   Dim rpt1 As Report, rpt2 As Report
   
   DoCmd.OpenReport rptToChange, acViewDesign
   DoCmd.OpenReport rptPrinter, acViewDesign
   
   Set rpt1 = Reports(rptToChange)
   Set rpt2 = Reports(rptPrinter)
   
   rpt1.PrtDevNames = rpt2.PrtDevNames
   
   DoCmd.Close acReport, rptPrinter, acSaveNo
   DoCmd.OpenReport rptToChange, acViewPreview
   End Function
   

   הערה

   הפונקציה ChangePrinter מעתיקה את המאפיין PrtDevNames מדוח אחד לאחר. לאחר מכן, תוכל להעתיק את אפשרויות ההדפסה שאתה מגדיר עבור הדוחות rptLaserPrinter ו- rptDotMatrix לדוח ספציפי שברצונך להדפיס.

   המאפיין acSaveNo נמצא בשימוש DoCmd.Close acReport, rptPrinter, acSaveNo בשורה של הקוד. אם לא תשתמש באפשרות זו ותחסוך את ה- PrtDevName של מדפסת שאינה מדפסת ברירת מחדל בעיצוב הדוח, הדוח לא יוכל למצוא את המדפסת בעת הפעלתה בפעם הבאה. תקבל את הודעת השגיאה הבאה:

   מסמך זה עוצב בעבר עבור PrinterName <במדפסת> ביציאה<>; אך מדפסת זו אינה זמינה. האם ברצונך להשתמש במדפסת ברירת המחדל DefaultPrinterName> ביציאה<>?<

4. שמור את המודול כ- Module1 ולאחר מכן צא מ- Visual Basic עורך.

5. צור את הטופס הבא:

   Form: frmForm1
   ------------------------------
   RecordSource: Unbound
   
   Control Type: Command Button
   Name: cmdLaser
   Caption: Laser
   Control Type: Command Button
   Name: cmdDotMatrix
   Caption: Dot Matrix
   

6. בתפריט תצוגה, לחץ על קוד.

   הערה

   ב- Access 2007 ואילך , לחץ על הצג קוד בקבוצה כלים בכרטיסיה עיצוב.

7. בתיבת הדו-עורך Visual Basic, הקלד את ההליכים הבאים:

   Private Sub cmdLaser_Click ()
   
   Call ChangePrinter("rptMyReport", "rptLaserPrinter")
   DoCmd.PrintOut
   
   End Sub
   
   Private Sub cmdDotMatrix_Click ()
   
   Call ChangePrinter("rptMyReport", "rptDotMatrix")
   DoCmd.PrintOut
   
   End Sub
   

8. צא מהמאפיין Visual Basic עורך ולאחר מכן שנה את המאפיין בעת לחיצה של שני לחצני הפקודות ל- [פרוצדורת אירוע]. לשם כך, בצע את הפעולות הבאות:

   1. בתצוגת עיצוב, לחץ על לחצן הפקודה ולאחר מכן לחץ על מאפיינים בתפריט תצוגה.

      ב- Access 2007 או בגירסה מתקדמת יותר, לחץ על לחצן הפקודה בתצוגת העיצוב ולאחר מכן לחץ על גליון מאפיינים בקבוצה כלים בכרטיסיה עיצוב.

   2. לחץ על הכרטיסיה אירוע , לחץ על המאפיין בעת לחיצה , לחץ על החץ למטה ולאחר מכן לחץ על [פרוצדורת אירוע].

9. כדי להדפיס rptMyReport למדפסת ספציפית, פתח את frmForm1 בתצוגת טופס ולאחר מכן לחץ על הלחצן המתאים.

הפניות

לקבלת מידע נוסף אודות אופן השליטה במדפסת שלך מ- Microsoft Access, ראה המאפיין PrtDevMode.