Supportnet / Forum / Tabellenkalkulation
Warnhinweis vor Drucken bei vielen Seiten
Frage
Hallo,
ich möchte einen Warnhinweis ausgeben, wenn ein Ausdruck einer großen Tabelle z.B. mehr als 10 Seiten wäre. Natürlich dann noch mit der Option den Druck abbrechen zu können. ;)
Vielen Dank und Grüße
Thomas
Antwort 1 von nighty
hi tommy :)
hier ein beispiel :))
gruss nighty
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim beenden As String
If ExecuteExcel4Macro("Get.Document(50)") > 10 Then
Cancel = True
beenden = MsgBox("ZUVIEL PAPIER VERBRAUCH GEHALTSKUERZUNG :)" & OK)
End If
End Sub
hier ein beispiel :))
gruss nighty
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim beenden As String
If ExecuteExcel4Macro("Get.Document(50)") > 10 Then
Cancel = True
beenden = MsgBox("ZUVIEL PAPIER VERBRAUCH GEHALTSKUERZUNG :)" & OK)
End If
End Sub
Antwort 2 von nighty
hi tommy :)
oder so :)
wie gewünscht :))
gruss nighty
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim beenden As String
If ExecuteExcel4Macro("Get.Document(50)") > 10 Then
beenden = MsgBox(" Zuviel Papier Verbrauch " & Chr$(13) & _
Chr$(13) & " Trotzdem Drucken", vbYesNo)
If beenden = vbNo Then
Cancel = True
End If
End If
End Sub
oder so :)
wie gewünscht :))
gruss nighty
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim beenden As String
If ExecuteExcel4Macro("Get.Document(50)") > 10 Then
beenden = MsgBox(" Zuviel Papier Verbrauch " & Chr$(13) & _
Chr$(13) & " Trotzdem Drucken", vbYesNo)
If beenden = vbNo Then
Cancel = True
End If
End If
End Sub
Antwort 3 von JonesM
Jepp!
Mutio obrigado!
Thomasinho (wenn schon)
;)
Mutio obrigado!
Thomasinho (wenn schon)
;)