Ave zusammen :D
Ich wollte wissen ob es möglich ist, das Drucken eines Tabellenblattes nur über einen CommandButton zu steuern?
Das heisst, dass das Drucken über Datei -> Drucken deaktiviert wird.
Ich bedanke mich jetzt schon mal für eure Hilfe und verbleibe,
mit freundlichen Grüssen
Primo
Mahlzeit!
Ja so etwas ist durchaus möglich …
… nur: warum?
Fragt sich Ralf
Hallo Primo,
ja, das ist möglich!
Siehe folgende Anleitung:
Drucken nur über CommandButton
'****************************************
'* H. Ziplies
'* 20.03.03
'* erstellt von Hajo.Ziplies@web.de
'* http://Hajo-Excel.de/
'***************************************
………………………………….……
‘Modul: DieseArbeitsmappe
‘………………………………..………………
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As
Boolean)
If Druck =
False Then
Cancel =
True
MsgBox "Drucken ist nur über den vorgesehen Button möglich!!!"
Else
Druck =
False
End If
End Sub
‘………………………………………………………………….………
‘Modul: Tabelle (Code hinter die Tabelle)
‘…………………………………………………………….……………
Option Explicit
Private Sub CommandButton1_Click()
Druck =
True
ActiveSheet.PrintOut
End Sub
‘………………………………………………………………………..…………………
‘Modul: allgemeines Modul (Variablendeklaration)
‘………………………………………………………………..…………………………
Option Explicit
Public Druck
As Boolean
Ganz schön viel Platz für so wenig Content.
Hallo Rpp63,
das fand ich auch und habe das bereits 2x editiert, nur wurde es damit nicht kürzer, sondern immer auseinandergezogener - weiß der Kuckuck, warum!
Also der Grund ist, dass die Leute auf der Arbeit nicht wirklich fähig sind Anweisungen zu befolgen und ich so möglich Fehlerquellen minimieren will.
Zusätzlich wird durch das betätigen des CommandButton ein Zähler fortgesetzt, welcher mir anzeigt wieviel Kopien gedruckt wurden.
@Glausius Danke Dir, genau das habe ich gesucht, funktioniert perfekt.
Lg Primo