אידישע וועלט פארומס

פרינט פארם פון עקסעל מיט פעדזש נומ

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יוד אלף » דינסטאג יאנואר 10, 2017 9:36 pm

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שוועמל » דינסטאג יאנואר 10, 2017 10:49 pm

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך אורייתא » דינסטאג יאנואר 10, 2017 10:54 pm

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יוד אלף » מיטוואך יאנואר 11, 2017 11:06 am

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יוד אלף » דאנערשטאג יאנואר 12, 2017 8:45 am

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך עין טובה » דאנערשטאג יאנואר 12, 2017 9:53 am

 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 

 Copy # of ## 

• ציטיר
• 0 צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יוד אלף » פרייטאג יאנואר 13, 2017 1:02 pm