איך וויל ארויספרינטן א פארם וואס איך האב אין עקסעל
איך וויל פרינטן הונדערט קאפיס פון דעם פארם
יעדער צעטל זאל האבן א נומ לויט די רייע
נאך א שאלה
איך וויל פרינטן א PDF פייל פון 33 בלעטער און יעדער בלאט זאל שטיין
PAGE (-) OF 33
ווי אויך אויב שייך עס זאל האבן פרינט דעיט סטעמפ
We will appreciate any help
פרינט פארם פון עקסעל מיט פעדזש נומ
די אחראים: זייער נייגעריג,אחראי,thefact
שוועמל האט געשריבן:וואס רופסטו עקסעל פארם?
די קשיא איז נישט רילעיטעד מיטן פארם,
דזשאזט פאר עקספלשנעישאן, א פארם רוף איך א בלעטל וואס איז אויסגעשטעלט פון פאראויס צו אריינפילן די בלענקס, אין מיין יעצטיגער פאל רעד איך גראדע פון עפעס וואס האט קיין שום גרעפיקס בלויז קאלאמנס און רייעס, פיט אררין אין א געווענליכע 8X11 פאפיר
איך וויל פרינטן דופליקעיטס וכו' כנ"ל
ווי אויך איז מיין שאלה וועגן PDF פרינטן במקומו עומדת, ויבואו בעלי תריסין וישאו ויתנו כדת מה לעשות
- עין טובה
- שר ארבעת האלפים
- תגובות: 4062
- זיך איינגעשריבן אום: דאנערשטאג נאוועמבער 27, 2014 9:46 pm
- לאקאציע: 127.0.0.1
קיין גראדע וועג איז נישט פארהאנען, אבער אז דו ווילסט קענסטו טוהן אזוי - מיט די עקסל שיט וואס דו ווילסט פרינטן יעדע פעידזש נומבער עקסטער אפן טוה דאס פאלגענדע:
1) דרוק ALT + F11 צו עפענען וויזואל בעיסיק
2) דרוק "insert" און דערנאך "module"
3) קאפי דעם קאוד אריין דארט
4) טויש "sheet4" מיט די נאמען פון די שיט
5) טויש B59 מיט די נאמען פון די סעל וואס דו ווילסט אז ס'זאל שטיין די פעידזש נומער
6) מאך צו די ווינדאו (מיט די X קנעפל)
7) אין די סעל וואס דו האסט געשריבן ביי נומער 5, לייג אריין די ווערטער
יעצט דארף מען האבן די דעוועלאפער טעב, אויב דו האסט עס נישט גיי צו File > Options > Customize Ribbon און לייג צו developer tab
8) אונטער די דעוועלאפער טעב דרוק "Macros" און וועל אויס PrintMultipleCopies
נעמט אין אכט אז ס'גייט דיר נישט פרעגן וועלכע פרינטער דו ווילסט נוצן. ס'גייט נוצן די פרינטער וואס דו זעהסט אין עקסעל ווען דו דרוקסט ctrl + p אז דו טוישסט עס דארט וועט עס פרינטן פון דעם פרינטער.
איך האף אז דאס העלפט
1) דרוק ALT + F11 צו עפענען וויזואל בעיסיק
2) דרוק "insert" און דערנאך "module"
3) קאפי דעם קאוד אריין דארט
קאוד: וועל אויס אלע
Sub PrintMultipleCopies()
Dim CopiesToPrint As Integer
Dim CopyNumber As Integer
CopiesToPrint = Application.InputBox("Enter # of copies to print:", "Copies", 0, , , , , 1)
If CopiesToPrint = 0 Then
Exit Sub
End If
'these refer to the sheet/form you are going to print
'and to the cell you want to put the copy # information into
For CopyNumber = 1 To CopiesToPrint
'put the phrase "Copy # of ##" into cell B59 of Sheet4
' the # will increment, the ## will be the # of copies you requested.
Worksheets("Sheet4").Range("B59") = "Copy " & CopyNumber & " of " & CopiesToPrint
Worksheets("Sheet4").PrintOut copies:=1 ' do them 1 at a time
Next
End Sub
4) טויש "sheet4" מיט די נאמען פון די שיט
5) טויש B59 מיט די נאמען פון די סעל וואס דו ווילסט אז ס'זאל שטיין די פעידזש נומער
6) מאך צו די ווינדאו (מיט די X קנעפל)
7) אין די סעל וואס דו האסט געשריבן ביי נומער 5, לייג אריין די ווערטער
קאוד: וועל אויס אלע
Copy # of ##
יעצט דארף מען האבן די דעוועלאפער טעב, אויב דו האסט עס נישט גיי צו File > Options > Customize Ribbon און לייג צו developer tab
8) אונטער די דעוועלאפער טעב דרוק "Macros" און וועל אויס PrintMultipleCopies
נעמט אין אכט אז ס'גייט דיר נישט פרעגן וועלכע פרינטער דו ווילסט נוצן. ס'גייט נוצן די פרינטער וואס דו זעהסט אין עקסעל ווען דו דרוקסט ctrl + p אז דו טוישסט עס דארט וועט עס פרינטן פון דעם פרינטער.
איך האף אז דאס העלפט
...