דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. עזרה בקוד קצר להדפסה בVBA באקסל

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

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

    כמו זה:

    
    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 ותקבל את הערכים שאתה רוצה.

    searchnicksS תגובה 1 תגובה אחרונה
    2
    • searchnicksS מנותק
      searchnicksS מנותק
      searchnicks
      השיב למנצפך ב נערך לאחרונה על ידי
      #4

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

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

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

      תגובה 1 תגובה אחרונה
      0
      • chagoldC מנותק
        chagoldC מנותק
        chagold
        כתב ב נערך לאחרונה על ידי
        #5

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

        Dialogs(xlDialogPrint)

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

        תגובה 1 תגובה אחרונה
        0
        • chagoldC מנותק
          chagoldC מנותק
          chagold
          כתב ב נערך לאחרונה על ידי chagold
          #6

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

           Sub Macro1()
           
               Selection.PrintOut Copies:=1, Collate:=True
           
           End Sub
          
          searchnicksS תגובה 1 תגובה אחרונה
          0
          • searchnicksS מנותק
            searchnicksS מנותק
            searchnicks
            השיב לchagold ב נערך לאחרונה על ידי
            #7

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

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

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

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

            תגובה 1 תגובה אחרונה
            0
            • chagoldC מנותק
              chagoldC מנותק
              chagold
              כתב ב נערך לאחרונה על ידי
              #8

              ctrl+p

              searchnicksS תגובה 1 תגובה אחרונה
              0
              • searchnicksS מנותק
                searchnicksS מנותק
                searchnicks
                השיב לchagold ב נערך לאחרונה על ידי
                #9

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

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

                תגובה 1 תגובה אחרונה
                0
                • chagoldC מנותק
                  chagoldC מנותק
                  chagold
                  כתב ב נערך לאחרונה על ידי
                  #10

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

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

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

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

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

                  תגובה 1 תגובה אחרונה
                  1
                  • searchnicksS מנותק
                    searchnicksS מנותק
                    searchnicks
                    כתב ב נערך לאחרונה על ידי searchnicks
                    #11

                    @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
                    • dovidD מחובר
                      dovidD מחובר
                      dovid ניהול
                      כתב ב נערך לאחרונה על ידי
                      #12

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

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

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

                      מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

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

                      searchnicksS dovidD 2 תגובות תגובה אחרונה
                      2
                      • searchnicksS מנותק
                        searchnicksS מנותק
                        searchnicks
                        השיב לdovid ב נערך לאחרונה על ידי
                        #13

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

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

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

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

                        רשמתי

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

                        dovidD תגובה 1 תגובה אחרונה
                        1
                        • dovidD מחובר
                          dovidD מחובר
                          dovid ניהול
                          השיב לsearchnicks ב נערך לאחרונה על ידי
                          #14

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

                          מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

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

                          searchnicksS תגובה 1 תגובה אחרונה
                          0
                          • searchnicksS מנותק
                            searchnicksS מנותק
                            searchnicks
                            השיב לdovid ב נערך לאחרונה על ידי
                            #15

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

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

                            תגובה 1 תגובה אחרונה
                            0
                            • dovidD מחובר
                              dovidD מחובר
                              dovid ניהול
                              כתב ב נערך לאחרונה על ידי
                              #16

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

                              מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

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

                              searchnicksS תגובה 1 תגובה אחרונה
                              0
                              • searchnicksS מנותק
                                searchnicksS מנותק
                                searchnicks
                                השיב לdovid ב נערך לאחרונה על ידי
                                #17

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

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

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

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

                                תגובה 1 תגובה אחרונה
                                0
                                • dovidD מחובר
                                  dovidD מחובר
                                  dovid ניהול
                                  כתב ב נערך לאחרונה על ידי dovid
                                  #18

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

                                  מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

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

                                  searchnicksS תגובה 1 תגובה אחרונה
                                  1
                                  • searchnicksS מנותק
                                    searchnicksS מנותק
                                    searchnicks
                                    השיב לdovid ב נערך לאחרונה על ידי
                                    #19

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

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

                                    תגובה 1 תגובה אחרונה
                                    0
                                    • dovidD מחובר
                                      dovidD מחובר
                                      dovid ניהול
                                      השיב לdovid ב נערך לאחרונה על ידי
                                      #20

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

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

                                      מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

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

                                      searchnicksS תגובה 1 תגובה אחרונה
                                      0
                                      • searchnicksS מנותק
                                        searchnicksS מנותק
                                        searchnicks
                                        השיב לdovid ב נערך לאחרונה על ידי
                                        #21

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

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

                                        תגובה 1 תגובה אחרונה
                                        1
                                        • searchnicksS מנותק
                                          searchnicksS מנותק
                                          searchnicks
                                          כתב ב נערך לאחרונה על ידי
                                          #22

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

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

                                          תגובה 1 תגובה אחרונה
                                          0
                                          • dovidD dovid העביר נושא זה מ-תכנות ב-

                                          • 1
                                          • 2
                                          בא תתחבר לדף היומי!
                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • דף הבית
                                          • קטגוריות
                                          • פוסטים אחרונים
                                          • משתמשים
                                          • חיפוש
                                          • חוקי הפורום