< návrat zpět

MS Excel


Téma: urceni adresare rss

Zaslal/a 23.2.2021 23:47

Chci tlacit Pdf do určeného adresare. Adresar by som potreboval vyberat napr. z prieskumnika WIN. Neviete aky je to prikaz.
Dakujem

Zaslat odpověď >

#049934
elninoslov
Myslíte tlač z makra?
Sub TlacPDF()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1) & "\TlacPDF.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End With
End Sub
citovat
#049941
avatar
Este by som prosil ako ziskat meno adresare do bunky
Dakujemcitovat
#049942
elninoslov
Sub TlacPDF()
Dim Adresar As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
Adresar = .SelectedItems(1)
Adresar = Adresar & IIf(Right(Adresar, 1) = "\", "", "\")
ActiveSheet.Range("C2").Value = Adresar
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Adresar & "TlacPDF.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End With
End Sub
citovat
#049955
avatar
Velmi dakujem fungujecitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Seznam hodnot

elninoslov • 3.3. 15:25

Automat.vyplnění formuláře daty z Excelu

mullekri • 3.3. 14:23

Automat.vyplnění formuláře daty z Excelu

Rejpal • 3.3. 13:47

Automat.vyplnění formuláře daty z Excelu

mullekri • 3.3. 13:12

Automat.vyplnění formuláře daty z Excelu

mullekri • 3.3. 13:09

Automat.vyplnění formuláře daty z Excelu

mullekri • 3.3. 13:08

Seznam hodnot

pavelo • 3.3. 11:43