Area di stampa Excel non resettabile

Question

Buonasera a tutti, modificando un file excel nel corpo dello stesso, al momento della stampa mi dà circa 200 pagine in stampa, una per ogni cella. Ho provato a settare in ogni modo, dal'area di stampa, da stampa titoli, allargando o restringendo la larghezza delle colonne, ma nulla di fatto, al meglio riesco ad ottenere un risultato di 6 pagine per ogni foglio A4. Sembra che ci sia un blocco del programma. Grazie per la collaborazione a tutti.

Answer 1

Ciao Pino,

modificando un file excel nel corpo dello stesso, al momento della stampa mi dà circa 200 pagine in stampa, una per ogni cella. Ho provato a settare in ogni modo, dal'area di stampa, da stampa titoli, allargando o restringendo la larghezza delle colonne, ma nulla di fatto, al meglio riesco ad ottenere un risultato di 6 pagine per ogni foglio A4. Sembra che ci sia un blocco del programma. Grazie per la collaborazione a tutti.

Prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

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

Option Explicit

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

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Set WB = ThisWorkbook

    For Each SH In WB.Worksheets

        SH.PageSetup.PrintArea = ""

    Next SH

    WB.Worksheets.PrintPreview

End Sub

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

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

===

Regards,

Norman