Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Floxe am Januar 08, 2018, 19:41:12 Nachmittag

Titel: Excel- Datei nur einmal drucken
Beitrag von: Floxe am Januar 08, 2018, 19:41:12 Nachmittag
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
Titel: Antw: Excel- Datei nur einmal drucken
Beitrag von: maninweb am Januar 09, 2018, 10:23:18 Vormittag
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ß