MS Excel

Téma: VBA - automatický tisk

Zaslal/a Petr-V 10.2.2014 21:26

Ahoj,

potřeboval bych vytvořit vba kód kde bude definován tisk následujícím způsobem.

v buňce X mám číslo 1 v buňce Y mám 55 (Jsou to čísla stránek které chci vytisknout (od 1 do 55)

Pointa toho kódu je že mi vyskočí okno které se mě zeptá kolik stránek chci vytisknout zadám 55 a excel začne tisknout stránky se změněnou buňkou X kde se bude po stránce měnit 1...2...3 atd až do stránky 55.

Pokud Vás něco napadne prosím o info na petr.vana2@gmail.com

Zaslat odpověď >

AL(10.2.2014 21:38)#017811

Popis problému nič moc; skús to ešte raz a najlepšie rovno s prílohou.citovat

cmuch(11.2.2014 6:09)#017814

Toto makro ti to bude splňovat.
v A1 je tisk od a v B1 tisk do.
Makro ti bude tisknout po jedné stránce, zároveň se bude měnit hodnota v A1.

Sub TiskFromTo()
'
Dim shFrom As Byte
Dim shTo As Byte
Dim x As Byte

shFrom = Range("A1")
shTo = Range("B1")

For x = shFrom To shTo
Range("A1") = shFrom
ActiveWindow.SelectedSheets.PrintOut From:=shFrom, To:=shFrom, Copies:=1
shFrom = shFrom + 1
Next x
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.