Anteprima .pdf foglio Excel

[WCB]

Buondì a tutti,
avrei bisogno di un vostro aiuto.
In una cartella Excel ho tre fogli, nel primo foglio è presente un pulsante con macro che apre una UserForm altrettanto popolata da command button.
Una command button, se cliccato, fa vedere l'anteprima del foglio attivo in .pdf(foglio1)..
Ecco come posso far in modo che se clicco un'altra command button mi esca l'anteprima in .pdf del foglio3?
Ho provato con questo codice aggiungendo:

Codice: Seleziona tutto

With Worksheets("Sheet3").Activate

o

Codice: Seleziona tutto

With "Sheet3"

o

Codice: Seleziona tutto

Set ws = ThisWorkbook.Sheets("Sheet3")
            Sheets("Sheet3").Visible = True

aggiungendo a questo codice:

Codice: Seleziona tutto

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...\" & Range("a3") & " " & Range("b3") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

naturalmente togliendo sempre ActiveSheet ma mi da errore "Documento non salvato" evidenziando tutto il codice..
Ho pensato che bisognava solo attivare il foglio interessato per poter far andare il codice ma a quanto pare non è così
Non so che pesci prendere!
Grazie in anticipo per ogni suggerimento e buona giornata.

[zsadist]

??
ci siamo di nuovo, non ho capito nullla..


allora, per quello che ho capito

Codice: Seleziona tutto

'il tuo codice prima di arrivare alla creazione del pdf
' bla bla bla

'ti suggerisco di creare una variabile testo per il nome del file ad esempio
PdfFile="C:\Users\...\" & Range("a3") & " " & Range("b3") & ".pdf"

'poi
Sheets("Sheet3").select '<------ (occhio al nome che sia giusto, rispetta anche gli spazi)

'e poi

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False





dovrebbe funzionare

[WCB]

Ciao zsadist
quindi dovrei scrivere in questo modo:

Codice: Seleziona tutto

Private Sub CommandButton3_Click()
With Worksheets("Sheet3").Select
PdfFile="C:\Users\...\" & Range("a3") & " " & Range("b3") & ".pdf"
Sheets("Sheet3").select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub

giusto?
Comunque ora lo provo..

[zsadist]

beh.. questo
With Worksheets("Sheet3").Select
potresti levarlo secondo me

[WCB]

Purtroppo non funziona
mi evidenzia sempre la stessa parte..
ho tolto worksheets("Sheet3").Select e mi esce un messaggio evidenziando :

Codice: Seleziona tutto

.ExportAsFixedFormat

che riporta "referenza invalida"

[zsadist]

???? non ho capito...
mi posti il codice così come è ora?
ometti solo il percorso del file per favore

[WCB]

Eccolo:

Codice: Seleziona tutto

Private Sub CommandButton2_Click()

With Sheets("Sheet3").Select
   
PdfFile = "C:\Users\....\....\" & Range("a3") & ".pdf"
   
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
End With
End Sub

Facendo così esce solo : "Documento non salvato"

[zsadist]

Private Sub CommandButton3_Click()
Questo no With Worksheets("Sheet3").Select


PdfFile="C:\Users\...\" & Range("a3") & " " & Range("b3") & ".pdf"
Sheets("Sheet3").select

Qui activesheet lo devi lasciare

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

[WCB]

Grazie grazie grazie....
Ora funziona
Sei un mito

[zsadist]

di nulla, scusa se ho scritto in modalità normale ma ero dal cell

[WCB]

Perdonami mi è sfuggita una cosa..
Ho notato che il pdf si apre tranquillamente ma lo salva col nome preso dalla cella A3 del foglio1..
Se vorrei salvarlo col nome della cella A3 del foglio3 come dovrei fare?

[zsadist]

il comando Sheets("Sheet3").select mettilo prima di

PdfFile="C:\Users\...\" & Range("a3") & " " & Range("b3") & ".pdf"

oppure

PdfFile="C:\Users\...\" & Sheets("Sheet3").Range("a3") & " " & Sheets("Sheet3").Range("b3") & ".pdf"

[WCB]

Grazie milleee