Controllo alla stampa

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

mak81

00lunedì 1 agosto 2016 16:06

Ciao Bella gente,
avrei da creare una macro che mi faccia un controllo sulla cella A1 in fase di stampa e se il suo contenuto è nulla impedisce la stampa del file...
E' fattibile? Non l'ho mai usato su eventi....
Grazie del supporto!!

alfrimpa

00lunedì 1 agosto 2016 16:19

Ciao Mak

Certo che è fattibile con una macro di questo tipo

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("a1").Value = "" Then
    MsgBox "La cella A1 è vuota"
    Cancel = True
End If
End Sub

mak81

00martedì 2 agosto 2016 11:11

Re:

alfrimpa, 01/08/2016 16.19:
Ciao Mak

Certo che è fattibile con una macro di questo tipo
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("a1").Value = "" Then
    MsgBox "La cella A1 è vuota"
    Cancel = True
End If
End Sub

Ciao Alfredo,
ho provato ma non funziona, la metto come modulo o la devo mettere in un altra parte della struttura del file?
... ps ho excel 2010... non vorrei che non funzionasse più metodi alternativi??

alfrimpa

00martedì 2 agosto 2016 11:15

Nell'editor di VBA nella finestra di progetto in alto a sinistra fai doppio clic su "ThisWorkbook" (QuestaCartelladilavoro) e nella finestra a destra copi e incolli la macro

mak81

00martedì 2 agosto 2016 11:32

Re:

alfrimpa, 02/08/2016 11.15:
Nell'editor di VBA nella finestra di progetto in alto a sinistra fai doppio clic su "ThisWorkbook" (QuestaCartelladilavoro) e nella finestra a destra copi e incolli la macro

Ok questo l'ho fatto e adesso funziona!

Ultima richiesta e poi si può chiudere ma per mettere due cause esclusive tipo se o a1 o b1 sono vuote allora... non mi ricordo l'or...grazie

alfrimpa

00martedì 2 agosto 2016 12:09

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("a1").Value = "" Or Range("B1").Value = "" Then
    MsgBox "Le celle A1 e B1 sono vuote"
    Cancel = True
End If
End Sub

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 03:14.