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

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

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

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

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