Condividi:        

Anteprima .pdf foglio Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 10:36

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! :undecided:
Grazie in anticipo per ogni suggerimento e buona giornata.
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Sponsor
 

Re: Anteprima .pdf foglio Excel

Postdi zsadist » 18/04/19 11:55

??
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
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 12:30

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.. ;)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Anteprima .pdf foglio Excel

Postdi zsadist » 18/04/19 12:33

beh.. questo
With Worksheets("Sheet3").Select
potresti levarlo secondo me
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 12:35

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" :?:
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Anteprima .pdf foglio Excel

Postdi zsadist » 18/04/19 12:39

???? non ho capito...
mi posti il codice così come è ora?
ometti solo il percorso del file per favore
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 13:10

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"
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Anteprima .pdf foglio Excel

Postdi zsadist » 18/04/19 13:16

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
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 13:26

Grazie grazie grazie....
Ora funziona :D
Sei un mito 8)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Anteprima .pdf foglio Excel

Postdi zsadist » 18/04/19 13:30

:) di nulla, scusa se ho scritto in modalità normale ma ero dal cell :)
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 14:02

Perdonami mi è sfuggita una cosa.. :roll:
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?
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Anteprima .pdf foglio Excel

Postdi zsadist » 18/04/19 14:05

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"
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Anteprima .pdf foglio Excel

Postdi WCB » 18/04/19 14:13

Grazie milleee :D
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52


Torna a Applicazioni Office Windows


Topic correlati a "Anteprima .pdf foglio Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti