הערה
הגישה לדף זה מחייבת הרשאה. באפשרותך לנסות להיכנס או לשנות מדריכי כתובות.
הגישה לדף זה מחייבת הרשאה. באפשרותך לנסות לשנות מדריכי כתובות.
משתמש חדש: דורש ידע לגבי ממשק המשתמש במחשבים של משתמש יחיד.
מאמר זה חל על קובץ מסד נתונים של Microsoft Access (.mdb) או מסד נתונים של Microsoft Access (.accdb).
סיכום
אם ברצונך להדפיס דוח במדפסת מסוימת, באפשרותך לבחור באופן ידני את המדפסת ואת כל אפשרויות ההדפסה, או להפוך את התהליך לאוטומטי כך שלחיצה על לחצן תוכל להחליף מדפסות ולאחר מכן להדפיס את הדוח עם האפשרויות שאתה מזין מראש. מאמר זה מסביר כיצד להפוך את תהליך בחירת המדפסת לאוטומטי.
מידע נוסף
הליך זה משתמש בשתי דוגמאות:
- הדפסה במדפסת לייזר.
- הדפסה במדפסת סיכות.
באפשרותך להחליף את המדפסות המסוימת שבהן ברצונך להשתמש. כדי להפוך את תהליך בחירת המדפסת עבור דוח מסוים לאוטומטי, בצע את הפעולות הבאות:
צור את שלושת הדוחות הבאים:
- rptLaserPrinter
- 20160 2016 2016
- rptMyReport
הערה
rptMyReport מייצג את הדוח בפועל שברצונך להדפיס.
כדי להגדיר את אפשרויות המדפסת, בצע את הפעולות הבאות:
פתח את rptLaserPrinter בתצוגת עיצוב.
בתפריט קובץ, לחצו על הדפס.
הערה
ב- Access 2007 או בגירסה מתקדמת יותר, לחץ על לחצן Microsoft Office ולאחר מכן לחץ על הדפס.
בתיבת הדו-שיח הדפסה, לחץ על מדפסת הלייזר שבה ברצונך להשתמש בתיבה שם ולאחר מכן לחץ על אישור.
לחץ על מאפיינים, הגדר את אפשרויות ההדפסה הרצויות, כגון כיוון ההדפסה וגודל הנייר ולאחר מכן לחץ על אישור.
חזור על שלבים א' עד ד' עבור rptDotMatrix. לחץ על מדפסת סיכות בשלב c.
בחלון מסד נתונים, לחץ על מודולים, לחץ על חדש ולאחר מכן הקלד את הפונקציה הבאה:
הערה
ב- 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> ביציאה<>?<
שמור את המודול כ- Module1 ולאחר מכן צא מ- Visual Basic עורך.
צור את הטופס הבא:
Form: frmForm1 ------------------------------ RecordSource: Unbound Control Type: Command Button Name: cmdLaser Caption: Laser Control Type: Command Button Name: cmdDotMatrix Caption: Dot Matrix
בתפריט תצוגה, לחץ על קוד.
הערה
ב- Access 2007 ואילך , לחץ על הצג קוד בקבוצה כלים בכרטיסיה עיצוב.
בתיבת הדו-עורך 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
צא מהמאפיין Visual Basic עורך ולאחר מכן שנה את המאפיין בעת לחיצה של שני לחצני הפקודות ל- [פרוצדורת אירוע]. לשם כך, בצע את הפעולות הבאות:
בתצוגת עיצוב, לחץ על לחצן הפקודה ולאחר מכן לחץ על מאפיינים בתפריט תצוגה.
ב- Access 2007 או בגירסה מתקדמת יותר, לחץ על לחצן הפקודה בתצוגת העיצוב ולאחר מכן לחץ על גליון מאפיינים בקבוצה כלים בכרטיסיה עיצוב.
לחץ על הכרטיסיה אירוע , לחץ על המאפיין בעת לחיצה , לחץ על החץ למטה ולאחר מכן לחץ על [פרוצדורת אירוע].
כדי להדפיס rptMyReport למדפסת ספציפית, פתח את frmForm1 בתצוגת טופס ולאחר מכן לחץ על הלחצן המתאים.
הפניות
לקבלת מידע נוסף אודות אופן השליטה במדפסת שלך מ- Microsoft Access, ראה המאפיין PrtDevMode.