Mnogo je lakše proveriti pre štampe/čuvanja fajla da li određena polja nisu prazna, što bi moglo da bude rešenje iz ovoga što si napisao.
Za događaj BeforePrint (Worksheet modul) unese se sledeći kod
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Rutina koja se poziva pre štampe
' Poziva ChekCond za zadatu oblast
'
Dim Response
Dim rngCond As Range
Set rngCond = Sheets(1).Range("C1:C100") ' Ovde zadati oblast koj
If CheckCond(rngCond) Then
Response = MsgBox("Nastaviti sa štampom", vbYesNo, "Nekompletan unos")
If Response = vbNo Then
' Cancel Print
Cancel = True
End If
End If
End Sub
U kodu je pretpostavljeno da je oblast koja se proverava C1:C100, što se lako promeni. Provera se vrši u posebnoj funkciji (kako bi lakše mogla da se dopunjuje i ispravlja po potrebi)
Code:
Public Function CheckCond(rng As Range) As Boolean
' Provera da li u zadatoj oblasti ima praznih ćelija
'
Dim cl As Range
CheckCond = False
For Each cl In rng
If cl.Text = "" Then
CheckCond = True
Exit For
End If
If CheckCond Then GoTo FuncEnd
Next cl
FuncEnd:
End Function
Nije to loše Rembrante, samo što ne bi dodao još malo boje?