MS Excel

Téma: Tisk přes makro

Zaslal/a Lugr 21.1.2019 20:48

Dobrý den,

bohužel nemohu přiložit soubor, jelikož jsou zde citlivá firemní data, ale pokusím se to popsat co nejpodrobněji.
Mám tabulku pro šest linek, která má 5 listů. Na Listu5 jsou data a na Listu1, Listu2, Listu3 a Listu4 jsou různé grafy k linkám. Na všech čtyřech listech jsou všechny linky. Při tisku musíme všechny stránky přebrat a srovnat podle linek. Tak mě napadlo jestli by se nedalo tyto grafy seřadit rovnou při tisku makrem. Vypotil jsem Makro z toho co jsem kde našel. Funguje to, ale občas na grafu zmizí formátování(např. místo 81,5% se tam objeví 81,5123584). Asi je to tím, že je to takový "bastl".

Předem děkuji za pomoc.

Sub Tisk()

Application.Dialogs(xlDialogPrinterSetup).Show

' Linka 1
Worksheets("List1").PageSetup.PrintArea = "$A$67:$W$99"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$67:$AG$99"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$73:$W$108"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$73:$W$108"
Worksheets("List4").PrintOut

' Linka 2
Worksheets("List1").PageSetup.PrintArea = "$A$100:$W$132"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$100:$AG$132"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$109:$W$144"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$109:$W$144"
Worksheets("List4").PrintOut

' Linka 3
Worksheets("List1").PageSetup.PrintArea = "$A$133:$W$165"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$133:$AG$165"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$145:$W$180"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$145:$W$180"
Worksheets("List4").PrintOut

' Linka 4
Worksheets("List1").PageSetup.PrintArea = "$A$1:$W$33"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$1:$AG$33"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$1:$W$36"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$1:$W$36"
Worksheets("List4").PrintOut

' Linka 5
Worksheets("List1").PageSetup.PrintArea = "$A$166:$W$198"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea="$A$166:$AG$198"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea="$A$181:$W$216"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea="$A$181:$W$216"
Worksheets("List4").PrintOut

' Linka 6
Worksheets("List1").PageSetup.PrintArea = "$A$34:$W$66"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea ="$A$34:$AG$66"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$37:$W$72"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$37:$W$72"
Worksheets("List4").PrintOut

End Sub

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

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.