Stampa Pdf VBA

Hai un problema con Excel?

Nuova discussione

Stampa Pdf VBA
di Mikael (utente non iscritto) data: 28/01/2015 08:33:06
Ho un foglio excel con un pulsante con mi crea in automatico il pdf, ma vorrei che lo invii in un percosso prestabilito (desktop) e no dove c'é il foglio excel salvato. Questo e il codice

Private Sub CommandButton167_Click()
With ActiveWorkbook
    If .Path = "" Then Exit Sub
    pdfFile = .Path & "" & Left(.Name, InStr(.Name, ".") - 1) & ".pdf"
End With
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub

di lepat (utente non iscritto) data: 28/01/2015 09:21:44
prova così

Private Sub CommandButton167_Click()
fpath = "c:	uacartella"
pdfFile = fpath & "" & Left(.Name, InStr(.Name, ".") - 1) & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
End Sub

di Mikael (utente non iscritto) data: 28/01/2015 10:04:46
Non funziona fa sempre la stessa identica cosa??

di lepat (utente non iscritto) data: 28/01/2015 16:11:32
prova ora

Private Sub CommandButton167_Click()
fpath = "c:	uacartella"
With ActiveWorkbook
  pdfFile = fpath & "" & Left(.Name, InStr(.Name, ".") - 1) & ".pdf"
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
End Sub

di Mikael (utente non iscritto) data: 02/02/2015 08:52:51
Ok grazie, ma avevo già risolto, stessa soluzione

Vuoi Approfondire?