produrre un file PDF invece che stamparlo

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

Buongiorno a tutti,

con questa istruzione

  PrintOut Copies:=1

eseguo la stampa del foglio aperto "fisicamente sulla stampante".

Bene, ma se invece volessi emettere il file corrispondente in PDF come posso fare?

Ho cercato di trovare da solo la soluzione, ma non ci sono riuscito ...

[patelModeratore patel Karma: 51 pts]

se imposti una pdfprinter come predefinita dovresti riuscirci

[PMC77Partecipante PMC77 Karma: 18 pts]

L'istruzione che ti serve è simile a questa: 

 

WNet.SetDefaultPrinter "PDFCreator"

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

ma PDFCreator è un applicativo che va scaricato giusto? e poi mi sembra che sia solo per Windows ...

[patelModeratore patel Karma: 51 pts]

infatti io ho parlato di stampante pdf, PDFCreator è solo un esempio, altrimenti puoi provare questa, ma non si tratta più di stampa ma di esportazione su pdf

Sub export_To_Pdf_ActiveSheet()
strFilePath = "C:\Users\utente\Desktop\"
  strPdfName = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=strFilePath & strPdfName, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  ActiveWorkbook.Close (False)
End Sub

[Autore]

Articoli