MS Excel

Téma: TISK ČÁSTI LISTU Z HODNOTY

Zaslal/a Dita 2.3.2021 15:32

Dobrý den
Prosím o úpravu kodu tak aby:
1. na listu Měsíc vyberu hodnotu v A1 (používám i k jiné funkci)
2. potřebuji vytisknout listy A,B,C,D a z listu Přehled stránku podle hodnoty A1 z listu Měsíc. (1=leden, 2=únor ...)

Děkuji

Příloha: rar

49986_tisk.rar (28kB, staženo 15x)

Zaslat odpověď >

elninoslov(2.3.2021 16:45)#049987

"Prehled" nie je "Přehled" !
Sub TiskDoPdf()
Dim Mesic As Integer, OldSelect As Worksheet
Mesic = Sheets("Měsíc").Range("A1").Value
Set OldSelect = ActiveSheet
Sheets("Přehled").PageSetup.PrintArea = Sheets("Přehled").Range("A1:I50").Offset(0, (Mesic - 1) * 9).Address
Sheets(Array("A", "B", "C", "D", "Přehled")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\users\slay\desktop\TISK DO PDF\" & Mesic & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
OldSelect.Select
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.