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

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

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

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

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