Condividi:        

Anteprima di stampa in 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 di stampa in excel

Postdi pacifico » 10/03/16 11:17

Gent.mi,

gradirei risolvere due problemi sull'anteprima di stampa.

Sul foglio di lavoro ho 4 colonne da D4 a G50 con dei dati e gradirei inserire tra i vari
pulsanti, anche l'anteprima di stampa.

Ho usato diversi codici prelevati dalla rete:

> ActiveWindow.SelectedSheets.PrintPreview

> With Worksheets("Foglio1")
.Activate
.PrintPreview
End With

ed altri e presentano due problemi:



all'anteprima si vede solo tre colonne anzichè 4 l'ultima colonna non è visibile.



oltre all'anteprima, si vede la maschera di comando (Anteprima, Stampa, Esci), il relativo
pulsante chiudi che è inibito e per chiudere sono scostretto con i pulsanti del pc (CTRL-
PULSANTE IN Sù ED ESC) e riavviare il file.

Gentilmente potete suggerire come risolvere?

Anticipatamente ringrazio e fiducioso, saluto.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Sponsor
 

Re: Anteprima di stampa in excel

Postdi Marius44 » 10/03/16 11:49

Ciao Pacifico

prova ad utilizzare queste due righe

Codice: Seleziona tutto
Worksheets("Foglio1").PageSetup.PrintArea = "$D$4:$G$50"
ActiveWindow.SelectedSheets.PrintPreview


Dovrebbe bastare.
Ciao,
Mario
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Anteprima di stampa in excel

Postdi pacifico » 10/03/16 12:08

Gent.mo Marius44,

ringrazio della gentilezza e tempestività.

Continua ad ignorare la 4° colonna e permane ancora il problema per la chiusura.

Cordialmente saluto.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Re: Anteprima di stampa in excel

Postdi wallace&gromit » 10/03/16 12:12

ma i codici li usi tutti assieme?
Di per sé è sufficiente:
ActiveWindow.SelectedSheets.PrintPreview

senza with e altro, che immagino mantenga aperta qualche routine che ti impedisce di chiudere in modo normale l'anteprima.

Ovviamente vedi tutto quello che hai impostato come area di stampa e oggetti stampabili sul foglio, come se tu lanciassi l'anteprima di stampa manualmente, miracoli non ne fa...

vedo che si è sovrapposto un altro messaggio, non ho fatto in tempo a vedere se sia risolutivo meglio del mio.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Anteprima di stampa in excel

Postdi pacifico » 10/03/16 12:34

Gent.mo Wallace&gromit,

nel ringraziarti dell'attenzione, tutti i codici vengono provati singolarmente vanno bene e
funzionano. Il problema è che alla visione anzichè 4 colonne si vedono 3 colonne e rimane
il problema che non si chiude e per chiudere dovrei usare i tasti del pc per la "Gestione
attività Windows".

Saluto

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Re: Anteprima di stampa in excel

Postdi pacifico » 10/03/16 14:08

Gent.mi,

dalle prove e con il seguente codice:

Dim LastR As Integer
Dim LastC As Integer

Range("D4").Select
LastR = Cells.Find(What:="*", After:=[D4], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
LastC = Cells.Find(What:="*", After:=[D4], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

ActiveSheet.PageSetup.PrintArea = Range("D4", Cells(LastR, LastC)).Address
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.RangeSelection.Select

riesco a visualizzare le 4 colonne e vengono visualizzate al centro della pagina.

Gradirei sapere tramite codice, che la visualizzazione avvenga verso sinistra e non al
centro. Ho provato con il seguente codice:

Private Sub Workbook_Open()

With ActiveSheet.PageSetup
.RightMargin = Application.CentimetersToPoints(1.5)
End With

End Sub

con esito negativo.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Re: Anteprima di stampa in excel

Postdi wallace&gromit » 10/03/16 15:29

Nel codice di impostazione della pagina
per non allineare al centro inserisci
.CenterHorizontally = False
per essere sicuro che le 4 colonne di larghezza ci stiano usa
.FitToPagesWide = 1

per evitare che il pulsante chiudi sia inattivo prova a togliere tutto quello che segue printpreview
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Anteprima di stampa in excel

Postdi pacifico » 10/03/16 15:58

Gent.mo wallace&gromit,

con la visualizzazione si è risolto e si riesce a visualizzare tutte le colonne.

Per chiudere l'anteprima sono costretto ad usare ancora il Manager anche se è visibile al
centro la finestra che è bloccata e non si sposta con il pulsante Esci. Quest'ultimo è
inibito.

Nel ringraziarti, saluto.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Re: Anteprima di stampa in excel

Postdi wallace&gromit » 10/03/16 17:37

Per poterti dire, magari, qualcosa in più dovresti postare l'intero codice che usi, non solo degli spizzichi.
Per farlo copia tutto quanto hai nel tuo modulo, poi premi il pulsante "Code" di questa pagina e incolli il tuo testo tra le due parentesi quadre che appariranno, ne guadagnerà la leggibilità del tuo post.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Anteprima di stampa in excel

Postdi pacifico » 10/03/16 18:49

Gent.mo wallace&gromit,

non ho parola come ringraziare per la disponibilità e pazienza.

Per evitare qualche errore, invio il link del file e mi scuso.

http://www.mediafire.com/download/be8r6 ... Stampa.rar

Fiducioso, saluto cordialmente

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Re: Anteprima di stampa in excel

Postdi wallace&gromit » 11/03/16 08:19

Ciao, mancava un comando per chiudere il form (stranamente, da quel che ne capisco io perché non l'hai chiamato in modalità modeless, quindi mi sarei aspettato che si chiudesse al clic del pulsante).
Questa macro funziona:
Codice: Seleziona tutto
Private Sub CmbAnteprima_Click()

Dim LastR As Integer
Dim LastC As Integer

LastR = Cells.Find(What:="*", After:=[D4], _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlPrevious).Row
LastC = Cells.Find(What:="*", After:=[D4], _
              SearchOrder:=xlByColumns, _
              SearchDirection:=xlPrevious).Column

ActiveSheet.PageSetup.PrintArea = Range("D4", Cells(LastR, LastC)).Address
Unload SceltaStampa
ActiveWindow.SelectedSheets.PrintPreview

End Sub


P.S. correzione ortografica: Alla bimba piacciono i cartoni animati :lol: :lol: :lol:
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Anteprima di stampa in excel

Postdi pacifico » 12/03/16 11:42

Gent.mo wallace&gromit,

mi scuso del ritardo, funziona perfettamente e gradirei un'ultima cortesia se è
realizzabile.

All'apertura dell'anteprima di stampa, è possibile aprire un UserForm? o con un pulsante o
abilitando la "X"?

Ringrazio della disponibilità e pazienza, saluto.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20


Torna a Applicazioni Office Windows


Topic correlati a "Anteprima di stampa in excel":


Chi c’è in linea

Visitano il forum: Nessuno e 70 ospiti