Creare una macro per stampare con PDF Creator

Ciao argi2012,

sì, è possibile. Visto però che con Excel 2013 puoi nativamente stampare pdf perché usare altro?

Ciao argi2012,

Si anche con Pdf Creator devo comunque selezionare l'area di stampa e l'adatta. Volevo fosse gestito automaticamente da Excel (2010 e 2013) C'è una soluzione al mio problema? 

Oltre agli ottimi suggerimenti di Maurizio, prova qualcosa del genere:

Alt-F11 per aprire l'editor di VBA

Menu | Strumenti| Riferimenti | Seleziona PDFCreator****| OK

Alt-IMper inserire un nuovo modulo di codice

Nel nuovo modulo vuoto, incolla il seguente codice:

'==========>>

Option Explicit

'==========>>

Public Sub Tester()

'\ Inseririre riferimento alla libreria PDFCreator:

'\ Menu | Strumenti | Riferimenti | PDFCreator

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Dim sFilename As String

    Dim sPath As String

    Dim vName As Variant

    Const sIntervallo As String = "A1:I47"                                  '<<==== Modifica

    Const sFoglio As String = "Studio Grara"                             '<<==== Modifica

    vname = Application.InputBox(Prompt:="Inserisci un nome per il file pdf", _

                                 Default:=ActiveSheet.Name, _

                                 Title:="NUOVO NOME")

    If vName = False Then

        Call MsgBox(Prompt:="Hai cancellato. Riprova!", _

                    Buttons:=vbCritical, _

                    Title:="MACRO TERMINATO!")

        Exit Sub

    Else

        If UCase(Right(vName, 4)) = ".PDF" Then

            sFilename = vName

        Else

            sFilename = vName & ".pdf"

        End If

    End If

    Set WB = ThisWorkbook

    With WB

        sPath = .Path & Application.PathSeparator

        Set SH = .Sheets(sFoglio)

    End With

    With SH

         Set Rng = .Range(sIntervallo)

        .PageSetup.PrintArea = Rng.Address

    End With

    Call PrintPDF(sFilename, WB, myPath)

End Sub

'---------->>

Public Sub PrintPDF(sName As String, aWB As Workbook, sPath As String)

    Dim oPdf As PDFCreator.clsPDFCreator

    Dim sPrinter As String

    Set oPdf = New PDFCreator.clsPDFCreator

    With oPdf

        .cStart "/NoProcessingAtStartup"

        .cOption("UseAutosave") = 1

        .cOption("UseAutosaveDirectory") = 1

        .cOption("AutosaveDirectory") = sPath

        .cOption("AutosaveFilename") = sName

        .cOption("AutosaveFormat") = 0

        .cClearCache

        'aWB.PrintPreview

        aWB.PrintOut

        Do Until oPdf.cCountOfPrintjobs = 1

            DoEvents

        Loop

        .cPrinterStop = False

        Do Until .cCountOfPrintjobs = 0

            DoEvents

        Loop

        .cClose

    End With

XIT:

    Set oPdf = Nothing

End Sub

'<<==========

===

Regards,

Norman

Si anche con Pdf Creator devo comunque selezionare l'area di stampa e l'adatta. Volevo fosse gestito automaticamente da Excel (2010 e 2013) C'è una soluzione al mio problema?

Scusa ma siccome non lo conosco bene, vuoi dire che stampando con PDFCreator non devi selezionare l'area di stampa e l'adatta larghezza?

Buongiorno Maurizio

La mia richiesta era per stampare, anche con la versione di Excel 2010 con un pulsante (a cui ci assegno la macro) senza dover selezionare l'area di stampa e l'adatta alla larghezza. Se è possibile creare un pdf in modo alternativo sono ben disposto a provare per riuscire a stampare o salvare l'intervallo di celle selezionate.

Ho provato a registrare una macro però stampa correttamente in Pdf Creator solo se la stampante selezionata in stampa è appunto Pdf Creator. Se cambio la stampante per stampare altri file la macro creata stampa con la nuova stampante selezionata e non più con Pdf Creator. 

Spero di essermi spiegato

Rimango in attesa

Grazie della disponibilità