Macro per stampare pdf

Question

Ciao a tutti.

Sto lavorando sulla possibilità di stampare direttamente in pdf.

Ho fatto una macro con queste istruzioni:

Application.ActivePrinter = "PDFCreator su Ne01:"

    ActiveWindow.SelectedSheets.

        "PDFCreator su Ne01:", Collate:=True

End Sub

Funziona tutto bene. Si clicca sul pulsante a cui è associata la macro e si apre la schermata di Pdf Creator. Vorrei, ma non so se è possibile, far avviare in automatico anche questa seconda fase (cioè far scrivere un nome e cliccare su stampa in PdfCreator). Voi pensate sia possibile o è troppo??? :-)

Answer 1

Ciao Ricciardi Francesco,

la prima considerazione è che non riapri il post semplicemente perchè non lo hai mai chiuso.

Chiudere un post significa contrassegnare una delle risposte come ricevute e non mi sembra tu lo abbia fatto.

Per quanto riguarda la tua domanda:

devi memorizzare la stampante corrente prima di impostare ActivePrinter su PDFCreator.

Modifica questa macro nel seguente modo:

---

Sub StampaPdf()

'

' StampaPdF Macro

    Dim strActivePrinter As String

    blnStampa = True

    strActivePrinter = Application.ActivePrinter

    ThisWorkbook.Worksheets("Stampa").PrintOut ActivePrinter:="PDFCreator su NE01:"

    Application.ActivePrinter = strActivePrinter

End Sub

---

David

Answer 2

Ciao Ricciardi Francesco,

fai la stessa cosa di prima. La routine Workbook_BeforePrint che abbiamo creato blocca tutte le stampe tranne quelle che vengono avviate con una macro che imposta a True il valore della variabile pubblica blnStampa.

Quindi è sufficiente che tu aggiunga tale istruzione a quella routine prima dell'istruzione per stampare. Per esempio:

 

Sub StampaPdf() ' ' StampaPdF Macro ' Macro registrata il 04/02/2013 'blnStampa = True      ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="PDFCreator su Ne01:", PrintToFile:=True, Collate:=True, PrToFileName:="D:\Percorso\Nome che vuoi.pdf"  End Sub

Grazie mille, Maurizio.

Ora in effetti, la macro funziona.

L'ho modificata secondo le mie esigenze:

Sub StampaPdf()'' StampaPdF Macro' Macro registrata il 04/02/2013 '

'    blnStampa = True    ThisWorkbook.Worksheets("Stampa").PrintOut ActivePrinter:="PDFCreator su Ne01:", PrintToFile:=True, Collate:=True, PrToFileName:="U:\Desktop\Onorari.pdf"    End Sub

Ora, però, succede una cosa strana, nel senso che non compare la schermata di PdfCreator (quella, per intenderci, dove si inserisce solitamente il nome e si clicca su invio). Il file è creato direttamente sul desktop ma, se ci clicco sopra, mi dice che non può essere aperto perchè è un tipo di file non supportato o è danneggiato... :-(

Answer 3

Ciao Ricciardi Francesco,

fai la stessa cosa di prima. La routine Workbook_BeforePrint che abbiamo creato blocca tutte le stampe tranne quelle che vengono avviate con una macro che imposta a True il valore della variabile pubblica blnStampa.

Quindi è sufficiente che tu aggiunga tale istruzione a quella routine prima dell'istruzione per stampare. Per esempio:

Sub StampaPdf() ' ' StampaPdF Macro ' Macro registrata il 04/02/2013 'blnStampa = True      ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="PDFCreator su Ne01:", PrintToFile:=True, Collate:=True, PrToFileName:="D:\Percorso\Nome che vuoi.pdf"  End Sub

Answer 4

Ciao Ricciardi Francesco,

mi sa che alla tua istruzione manca un pezzo. Probabilmente intendi qualcosa del genere:

• ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="PDFCreator su Ne01:" _

                          , PrintToFile:=True _

                          , Collate:=True _

                          , PrToFileName:="D:\Percorso\Nome che vuoi.pdf"

Maurizio, scusami tantissimo.

Ho provato ma i codici forse entrano in conflitto con l'altra macro di blocco della stampa.

Ho associato questa macro ad un pulsante:

Sub StampaPdf()'' StampaPdF Macro' Macro registrata il 04/02/2013 '    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="PDFCreator su Ne01:", PrintToFile:=True, Collate:=True, PrToFileName:="D:\Percorso\Nome che vuoi.pdf"    End Sub

Purtroppo mi compare il messaggio che è impedito stampare :-)

Answer 5

Ciao Ricciardi Francesco,

mi sa che alla tua istruzione manca un pezzo. Probabilmente intendi qualcosa del genere:

• ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="PDFCreator su Ne01:" _

                          , PrintToFile:=True _

                          , Collate:=True _

                          , PrToFileName:="D:\Percorso\Nome che vuoi.pdf"