Automatycznie uzupełnianie i drukowanie

[Ravier 0]

Chciałbym się dowiedzieć czy w ogóle jest możliwe automatyczne uzupełnienie i wydrukowanie strony w excelu za pomocą makra. 

Mam taką stronę: 
http://i.imgur.com/ee3wyeG.png 

chciałbym żeby po otwarciu pliku excela pojawiało się okno dialogowe z zapytaniem o Order number i tam pole do wpisania a następnie pole do wpisania liczby stron i tam pole do wpisania np. 41. po zatwierdzeniu automatycznie wydrukuje się 41 stron numeracją od 1 do 41. 

Da się coś takiego zrobić a może znacie lepsze sposoby na makro które by ponumerowało strony na zasadzie 1 OF 200 albo 1 OF 140 itp.

Edytowane 24 Lipca 2015 przez Ravier

[Morsol 19]

Doprecyzuj proszę mi jedną rzecz a może będę w stanie pomóc. Rozumiem, że drukujesz np 50 takich samych stron, jedyną różnicą na nich jest nr strony?

Sub druk()
Dim Lstron, x As Integer

Lstron = InputBox("Podaj liczbę stron")

For x = 1 To Lstron
Cells(6, 7).Value = x & " of " & Lstron
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True, _
        IgnorePrintAreas:=False
Next
End Sub

Tutaj masz przykładowy kod zmieniający liczbę stron, oraz drukujący zadanie na drukarce domyślnej, w podobny sposób możesz rozbudować to o zmianę nr zamówienia.

Edytowane 24 Lipca 2015 przez Morsol