Ahoj pánové a dámy,
potřeboval bych pomoci se sestavením makra, aby se list s názvem "vs" uložil do pdf, do složky "C:\Users\lenovo\Desktop\škodní komise" a pojmenoval se podle buňky B22.
Děkuji za pomoc
makro tisk do pdf
Re: makro tisk do pdf
Kód: Vybrat vše
Sub Tisk_PDF()
Dim Jmeno As String
Dim List As Worksheet
Const Cesta As String = "C:\Users\lenovo\Desktop\škodní komise\"
Set List = Worksheets("vs")
Jmeno = List.Range("B22").Value
List.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Cesta & Jmeno & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set List = Nothing
End Sub
Re: makro tisk do pdf
Řeším něco podobného, tak bych se chtěl přizeptat. Jde v tomhle nastavit i velikost listu na A3, polohu na šířku a přizpůsobit vše na jeden list? zkoušel jsem do toho kódu zakomponovat např. PaperSize = xlPaperA3 ale hlásí mi to pouze chyby.
Re: makro tisk do pdf
Tak nastavit velikost a orientaci není problém, ale s tím přizpůsobením vše na jednu stránku nemám tucha.
Kód: Vybrat vše
Sub Tisk_PDF()
Dim Jmeno As String
Dim List As Worksheet
Const Cesta As String = "C:\Users\lenovo\Desktop\škodní komise\"
Set List = Worksheets("vs")
Jmeno = List.Range("B22").Value
With List.PageSetup
.PaperSize = xlPaperA3
.Orientation = xlLandscape
End With
List.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Cesta & Jmeno & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set List = Nothing
End Sub
- elninoslov
- Level 2.5
- Příspěvky: 366
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: makro tisk do pdf
Skúste pridať ešte parametre
Kód: Vybrat vše
.FitToPagesTall = 1
.Zoom = False
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 4
- 1103
-
od Grander
Zobrazit poslední příspěvek
09 čer 2023 21:31
-
- 3
- 1002
-
od Dolpi
Zobrazit poslední příspěvek
25 led 2024 18:23
-
- 4
- 787
-
od Martab
Zobrazit poslední příspěvek
02 led 2024 13:11
-
- 12
- 1749
-
od amirinda
Zobrazit poslední příspěvek
14 říj 2023 16:39
-
- 1
- 1655
-
od atari
Zobrazit poslední příspěvek
28 dub 2023 12:08
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů