Re: Non stampare contenuto di una cella

[Norman Jones]

Ciao Giorgio,

'---------------
ho la necessità di visualizzare i dati di una cella, che vengono utilizzati
per un calcolo, ma senza stamparli. Posso inibire la stampa relativamente
ad
una cella o più celle?

'---------------

Per una solzione VBA, prova:

Nel Modulo ThisWorkbook (vedi di sotto),incollarci il seguente codice:

'=============>>
Option Explicit

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

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim SH As Worksheet
Dim rCell As Range
Dim i As Long
Dim j As Long

Set SH = Me.Sheets("Foglio1") '<<=== da CAMBIARE
Set Rng = SH.Range("A2, A4, A6") '<<=== da CAMBIARE

ReDim Arr(1 To Rng.Cells.Count)

For Each rCell In Rng.Cells
j = j + 1
Arr(j) = rCell.Font.ColorIndex
Next rCell

Rng.Font.ColorIndex = 2

Application.OnTime Now, "AfterPrint"

End Sub
'<<=============

Alt-F11 per aprire l'Editor di VBA
Ctrl-R per aprire la finestra Gestione Progetti
Fai un doppio click sull'oggetto ThisWorkbook
Incollarci il suddetto codice
Alt-F11 per tornare in Excel.

In un modulo standard (vedi di sotto), incollarci:
'=============>>
Option Explicit

Public Rng As Range
Public Arr() As Long

'-------------------->>
Public Sub AfterPrint()
Dim rCell As Range
Dim j As Long

For Each rCell In Rng.Cells
j = j + 1
rCell.Font.ColorIndex = Arr(j)
Next rCell

End Sub
'<<=============

Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Incollarci il suddetto codice
Alt-F11 per tornare in Excel

---
Regards,
Norman

[Giorgio]

Ciao, Norman
ho provato il codice sopra, funziona perfettamente
ti ringrazio e ti saluto
Giorgio