ho ideato questa macro che mi salva in pdf il foglio ed in più salva anche il file .xls:
- Codice: Seleziona tutto
Sub pdfsalva1209()
'
' pdfsalva1209 Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\s.recalcati\Desktop\xxxxxxxxxxxxx", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWorkbook.Save
End Sub
Funziona bene, peccato che una volta eseguita, tramite pulsante, mi faccia sparire tutti gli altri pulsanti (il foglio contiene più macro assegnate a più pulsanti).
Qualcuno sa perché?
vi ringrazio
s.r