makro tisk do pdf

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

cebep
nováček
Příspěvky: 1
Registrován: srpen 19
Pohlaví: Muž
Stav:
Offline

makro tisk do pdf

Příspěvekod cebep » 09 srp 2019 20:46

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
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: makro tisk do pdf

Příspěvekod Grimm » 09 srp 2019 23:30

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
nováček
Příspěvky: 21
Registrován: listopad 17
Pohlaví: Nespecifikováno
Stav:
Offline

Re: makro tisk do pdf

Příspěvekod Michremi » 13 srp 2019 11:16

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

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: makro tisk do pdf

Příspěvekod Grimm » 14 srp 2019 20:22

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

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: makro tisk do pdf

Příspěvekod elninoslov » 19 srp 2019 09:20

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
  • Tisk ELD souboru
    od Jandak » 30 dub 2023 09:53 » v Problémy s hardwarem
    4
    1103
    od Grander Zobrazit poslední příspěvek
    09 čer 2023 21:31
  • Nekvalitní tisk Příloha(y)
    od Dolpi » 21 led 2024 21:09 » v Problémy s hardwarem
    3
    1002
    od Dolpi Zobrazit poslední příspěvek
    25 led 2024 18:23
  • tisk samolepicich etiket
    od jirino92 » 02 led 2024 10:08 » v Vše ostatní (hw)
    4
    787
    od Martab Zobrazit poslední příspěvek
    02 led 2024 13:11
  • Scan a tisk u dvou tiskáren
    od amirinda » 14 říj 2023 06:49 » v Vše ostatní (sw)
    12
    1749
    od amirinda Zobrazit poslední příspěvek
    14 říj 2023 16:39
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1655
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů