Anteprima di stampa in excel

[pacifico]

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:

1°

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

2°

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.

[Marius44]

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

[pacifico]

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.

[wallace&gromit]

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.

[pacifico]

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]

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.

[wallace&gromit]

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

[pacifico]

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.

[wallace&gromit]

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.

[pacifico]

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.

[wallace&gromit]

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

[pacifico]

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.