תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

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

    תכנות
    4
    22
    1267
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • searchnicks
      searchnicks נערך לאחרונה על ידי

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

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

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

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

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

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

      אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

      תגובה 1 תגובה אחרונה תגובה ציטוט 1
      • מנצפך
        מנצפך נערך לאחרונה על ידי

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

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • מנצפך
          מנצפך נערך לאחרונה על ידי

          כמו זה:

          
          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 תגובה 1 תגובה אחרונה תגובה ציטוט 2
          • searchnicks
            searchnicks @מנצפך נערך לאחרונה על ידי

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

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

            אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

            תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • chagold
              chagold נערך לאחרונה על ידי

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

              Dialogs(xlDialogPrint)

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

              תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • chagold
                chagold נערך לאחרונה על ידי chagold

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

                 Sub Macro1()
                 
                     Selection.PrintOut Copies:=1, Collate:=True
                 
                 End Sub
                
                searchnicks תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • searchnicks
                  searchnicks @chagold נערך לאחרונה על ידי

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

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

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

                  אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                  תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • chagold
                    chagold נערך לאחרונה על ידי

                    ctrl+p

                    searchnicks תגובה 1 תגובה אחרונה תגובה ציטוט 0
                    • searchnicks
                      searchnicks @chagold נערך לאחרונה על ידי

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

                      אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                      תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • chagold
                        chagold נערך לאחרונה על ידי

                        ברשימת הפקודות הכוללת שיש באקסל (קובץ>אפשרויות>התאמה אישית של רצועת הכלים) ותבחר שם בלשונית 'כל הפקודות' 0_1533839471531_4f075f48-f199-486d-98c5-f3eec6b003c9-image.png

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

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

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

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

                        תגובה 1 תגובה אחרונה תגובה ציטוט 1
                        • searchnicks
                          searchnicks נערך לאחרונה על ידי searchnicks

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

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

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

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

                          אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                          תגובה 1 תגובה אחרונה תגובה ציטוט 1
                          • dovid
                            dovid ניהול נערך לאחרונה על ידי

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

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

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

                            אפשר ליצור קשר dovid@tchumim.com

                            searchnicks dovid 2 תגובות תגובה אחרונה תגובה ציטוט 2
                            • searchnicks
                              searchnicks @dovid נערך לאחרונה על ידי

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

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

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

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

                              רשמתי

                              אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                              dovid תגובה 1 תגובה אחרונה תגובה ציטוט 1
                              • dovid
                                dovid ניהול @searchnicks נערך לאחרונה על ידי

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

                                אפשר ליצור קשר dovid@tchumim.com

                                searchnicks תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                • searchnicks
                                  searchnicks @dovid נערך לאחרונה על ידי

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

                                  אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                                  תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                  • dovid
                                    dovid ניהול נערך לאחרונה על ידי

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

                                    אפשר ליצור קשר dovid@tchumim.com

                                    searchnicks תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                    • searchnicks
                                      searchnicks @dovid נערך לאחרונה על ידי

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

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

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

                                      אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                                      תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                      • dovid
                                        dovid ניהול נערך לאחרונה על ידי dovid

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

                                        אפשר ליצור קשר dovid@tchumim.com

                                        searchnicks תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                        • searchnicks
                                          searchnicks @dovid נערך לאחרונה על ידי

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

                                          אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                                          תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                          • dovid
                                            dovid ניהול @dovid נערך לאחרונה על ידי

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

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

                                            אפשר ליצור קשר dovid@tchumim.com

                                            searchnicks תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                            • searchnicks
                                              searchnicks @dovid נערך לאחרונה על ידי

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

                                              אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                                              תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                              • searchnicks
                                                searchnicks נערך לאחרונה על ידי

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

                                                אם תשובתי פתרה את בעייתך, אנא לחץ על החץ הקטנטון שנמצא בסמוך לתשובה...

                                                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                                • הועבר מ תכנות ע"י  dovid dovid 
                                                • 1 / 1
                                                • פוסט ראשון
                                                  פוסט אחרון
                                                בא תתחבר לדף היומי!