
Sub Stampa_PDF()
'rilevare il nome del file da cella A1
'indicare dove salvare il File ess.C: dexktop
'se file gia presente confermare scrittura opzione SI
'
Application.ActivePrinter = "Microsoft Print to PDF su Ne03:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
|
