Excel- Datei nur einmal drucken

[Floxe]

Hallo Leute,

ich habe eine Frage. Ist es möglich eine Excel- Datei lediglich einmal per Druckvorgang auszudrucken? Ist es demnach möglich die Pfeiltasten, mit der man die Anzahl der erstellten Exemplare nach oben und unter korrigiert, zu deaktivieren?
Vielleicht mittels VBA? Da ich weiß das der Druckvorgang Excel untersagt werden kann?

Liebe Grüße

[maninweb]

Hallo,

Du könntest Dir die Anzahl der Ausdrucke merken, z.B. in einer Tabelle namens "Einstellungen" (die Du dann z.B. ausblenden kannst).
Wird erstmalig gedruckt wird der Wert in A1 auf 1 gesetzt, was Du beim zweiten Ausdruck abfragen kannst. Der Code gehört in
das Code-Modul "DieseArbeitsmappe".

Code: Visual Basic

1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
2.  
3.   If ThisWorkbook.Worksheets("Einstellungen").Cells(1, 1).Value > 0 Then
4.    
5.     MsgBox "Diese Datei wurde bereits gedruckt."
6.    
7.     Cancel = True
8.    
9.   Else
10.  
11.     ThisWorkbook.Worksheets("Einstellungen").Cells(1, 1).Value = 1
12.    
13.   End If
14.  
15. End Sub
16.  

Das Ganze geht nur wenn Makros ausgeführt werden dürfen. Eine (rechtlich) sichere Methode ist das somit nicht.
An das Feld zur Anzahl der Ausdrucke beim Erstdruck kommst Du so ohne weiteres nicht dran.

Gruß