Kopioin tuolta aiemmista keskusteluista tälläisen kaavan, joka lisää lukua tulostettaessa:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Range("A1") 1
End Sub
Nyt luku kasvaa, kun tulostan yhden kappaleen. Mitenköhän lukua saisi kasvatettua kun tulostan enemmän?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Range("A1") 1
End Sub
Nyt luku kasvaa, kun tulostan yhden kappaleen. Mitenköhän lukua saisi kasvatettua kun tulostan enemmän?
Vastaukset 1
Vanhimmat
taulukohtaiselle tulostustapahtumalle voi käyttää oheista työkirjakohtaista makroa
Sub Tulostuskerrat()
Sivut = InputBox("Montako sivua tulostetaan?")
If Sivut < 1 Then Exit Sub
For n = 1 To Sivut
Range("A1") = Range("A1") 1
ActiveSheet.PrintOut Copies:=1, Collate:=True
Next
End Sub