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

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

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

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

מתוזמן נעוץ נעול הועבר תכנות
22 פוסטים 4 כותבים 1.7k צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • 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
                                        • דף הבית
                                        • קטגוריות
                                        • פוסטים אחרונים
                                        • משתמשים
                                        • חיפוש
                                        • חוקי הפורום