makro tisk do pdf

[cebep]

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

[Reklama]

[Grimm]

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


[Michremi]

Ř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.

[Grimm]

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]

Skúste pridať ešte parametre

Kód: Vybrat vše

.FitToPagesTall = 1
.Zoom = False