Problemi impostazione salvataggio PDF

[GnellinoPartecipante Gnellino]

Sub SalvaInPDF_GIORNO()
Dim ws As Worksheet
Dim strIndirizzo As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Sheets("STAMPA").Visible = True

Set ws = Sheets("STAMPA")

'apre la finestra di dialogo per il salvataggio dei file
'la cartella di default è la stessa della cartella di excel
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "_" _
& Format(Now(), "dd-mm-yyyy") _
& ".pdf"
strFile = ThisWorkbook.Path & "" & strFile

myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Seleziona la cartella e inserisci il nome del file da salvare")

If myFile <> False Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("STAMPA").Visible = xlVeryHidden

MsgBox "Il file PDF è stato salvato."
End If

exitHandler:
Exit Sub
errHandler:
MsgBox "Non ho potuto salvare il file PDF"
Resume exitHandler
End Sub

[GnellinoPartecipante Gnellino]

Ciao

 scusate ma non ho ancora chiaro il nuovo layout del forum  😆

Ho un problema con la macro pubblicata.

Mi permette di salvare un foglio in pdf, e funziona perfettamente sul mio pc.

il problema si verifica utilizzando il file su un altro pc, avendo una diversa stampante impostata come predefinita, mi vengono modificati i margini o le impostazioni del foglio e il salvataggio risulta sbagliato (su 2 pagine, tagliando la parte finale del foglio).

Chiedo se è possibile impostare in modo permanente le impostazione di salvataggio, magari impostando come stampa "Microsoft print pdf" che è presente su tutti i pc

Grazie

[Autore]

Articoli