עזרה בקוד קצר להדפסה בVBA באקסל

[searchnicks]

אשמח אם יוכלו לעזור לי
יש לי שני קודי מאקרו קצרים שאני לא מצליח לשלב ביניהם

מאקרו להדפסת טווח מותאם אישית (למדפסת ברירת מחדל)

Sub PrintSomeCells()
Range("A2:G24").PrintOut
End Sub

מאקרו להדפסה באמצעות תיבת דו שיח

Sub Print()
  Application.Dialogs(xlDialogPrint).Show
End Sub

איך אני יכול לשלב ביניהם כך שידפיס טווח מוגדר באמצעות תיבת דו שיח

[מנצפך]

לדעתי אתה צריך להגדיר באוביקט של הדושיח מה הטווח.
לא זוכר בדיוק איך. צריך לחפש.
נראה לי צריך להשתמש בדושיח מהסוג שמשתמשים לפתיחת קובץ או לשמירה.

[מנצפך]

כמו זה:

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd

    .AllowMultiSelect = False
    .Title = "Please select the file to kill his non colored cells"
    .Filters.Add "Excel", "*.xls"
    .Filters.Add "All", "*.*"

    If .Show = True Then
        txtFileName = .SelectedItems(1)
    End If

End With

שאתה יוצר מופע fd של האובייקט

Application.FileDialog(msoFileDialogFilePicker)

אותו דבר תעשה

Set fd = Application.FileDialog(xlDialogPrint)

ואז
תגדיר לו מה שצריך.
בסוף תעשה לו Show ותקבל את הערכים שאתה רוצה.

[searchnicks]

@מנצפך
תודה על עזרתך
הדו שיח שציינתי הוא מובנה באקסל
ראה תמונה

ולא ניתן לשנות אותו, (זה המאקרו השני שהבאתי)
השאלה שלי איך אני יכול לעשות שהפקודה תבוא על תאים שאציין במאקרו (כמו במאקרו הראשון)

[chagold]

@מתמחה-במחשבים אמר בעזרה בקוד קצר להדפסה בVBA באקסל:

Dialogs(xlDialogPrint)

אין לי תשובה, אבל אולי תעקוב אחרי השרשור הזה (שנפתח היום).

[chagold]

עשיתי הקלטת מאקרו, בדקתי את הקוד והעתקתי לכאן, תגיד אם זה עזר.

 Sub Macro1()
 
     Selection.PrintOut Copies:=1, Collate:=True
 
 End Sub

[searchnicks]

@chagold
אבקש סליחה מכבודו על הטרחה
אך המאקרו שהבאת הוא מאקרו זהה למאקרו הראשון שהבאתי (רק שהטווח הוא בחירה ידנית)

הוא לא מפעיל תיבת דו שיח כנ"ל

(האם יש קיצור מקשים באקסל לפתיחת תיבת דו שיח? כמו כאן בכרום cntl+shift+p)

[chagold]

ctrl+p

[searchnicks]

@chagold
זה פותח את ההדפסה שבתוך קובץ
אני מתכוון חלון חדש להדפסה

[chagold]

ברשימת הפקודות הכוללת שיש באקסל (קובץ>אפשרויות>התאמה אישית של רצועת הכלים) ותבחר שם בלשונית 'כל הפקודות'

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

כשעשיתי מאקרו עליהם יחד, הגעתי לקוד הזה.

 ActiveWindow.SelectedSheets.PrintPreview
 Selection.PrintOut Copies:=1

אם כי לא מצאתי גישה דרך מאקרו להצגת החלונית בנפרד.
בהצלחה.

[searchnicks]

@chagold @מנצפך @david
בסייעתא דשמיא הצלחתי לעשות הקוד הזה

Sub PrintSomeCells()
Dim RetStat
RetStat = Application.Dialogs(xlDialogPrinterSetup).Show
If RetStat Then Range("A6").PrintOut
End Sub

והוא פועל היטב
ואפילו עוד יותר טוב
כי הוא פותח את החלון הזה

וזה בלעדי ואין את זה בשום פורום אינטרנטי!!

[dovid]

@מתמחה-במחשבים ראשית כל הכבוד על הפתרון וההתקדמות הכה מהירה!
אך שים לב לעצה קטנה שלי.
שאלת שאלה איך משלבים את:

1. PrintOut שהפרמטר היחיד שהוא מקבל זה מה להדפיס
2. הShow Dialog שנותנת למשתמש להגדיר המון פרמטרים (חוץ מטווח מותאם אישית)

לי לא היה לזה תשובה, וגם לך לא.
רק שלא סיפרת שהצורך שלך הוא סך הכל לבחור את המדפסת. ואתה מוכן לוותר, לפחות בינתיים על שלל הפרמטרים שתיבת הדו שיח נותנת (כמו הדפסה דו צידית וכו' וכו').
ככל שתשאל ברור יותר ותספר מה אתה צריך, תחסוך זמן.
בהצלחה!

[searchnicks]

@dovid אמר בעזרה בקוד קצר להדפסה בVBA באקסל:

@מתמחה-במחשבים ראשית כל הכבוד על הפתרון וההתקדמות הכה מהירה!
אך שים לב לעצה קטנה שלי.
שאלת שאלה איך משלבים את:
רק שלא סיפרת שהצורך שלך הוא סך הכל לבחור את המדפסת. ואתה מוכן לוותר, לפחות בינתיים על שלל הפרמטרים שתיבת הדו שיח נותנת (כמו הדפסה דו צידית וכו' וכו').

האם יש אפשרות כזאת?

ככל שתשאל ברור יותר ותספר מה אתה צריך, תחסוך זמן.

רשמתי

[dovid]

@מתמחה-במחשבים הפתרון שלך למשל...
אם אתה מחפש בגוגל EXCEL VBA set printer printout, אתה מקבל בתוצאה ראשונה אפשרות השמה ידנית של שם המדפסת.
בחיפוש EXCEL VBA choose printer printout אתה מקבל בתוצאה הראשונה את מה שעשית.

[searchnicks]

@dovid
אני חיפשתי בגוגל (בתרגום מראש לאנגלית) הדפסת טווח מוגדר, וכן פתיחת הדו"ש הדפסה
תאמין לי שחפרתי מאד הרבה
שילוב של שניהם לא היה
(התבססתי על המאקרו של הדפסת טופס כאן )

[dovid]

כי אכן אין שילוב של שניהם.
אתה מפספס את עיקר הנקודה שכתבתי לך.

[searchnicks]

@dovid אמר בעזרה בקוד קצר להדפסה בVBA באקסל:

אתה מפספס את עיקר הנקודה שכתבתי לך.

הואל להאיר את עיני

[dovid]

אתה שאלת פה וגם חיפשת בגוגל שילוב בין תיבת הדו שיח הדפסה (על שלל ההגדרות) לprintout, בעוד היית צריך דרך לבחירת מדפסת יחד עם printout.

[searchnicks]

@dovid
אמת
העדפתי תיבת דו שיח (שמאפשר לבחור כמויות)
אבל כפי שציינת וויתרתי על כך

[dovid]

@dovid אמר בעזרה בקוד קצר להדפסה בVBA באקסל:

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

[searchnicks]

@dovid
זה העניין שלא ידעתי שצריך לוותר על כך, ראיתי את התוצאה של המאקרו והבנתי שאני צריך לוותר...

[searchnicks]

תשובה עם רעיון זהה שקיבלתי עכשיו בפורום מיקרוסופט
כאן