Formular beim Ausdrucken speichern oder übertragen

[Manitu03]

Edit: -doppelt-

[Manitu03]

Hallo,

folgendes Makro gehört in DieseArbeitsmappe

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim vntAntwort As Variant
 
  vntAntwort = MsgBox("Soll die Datei gespeichert wernden?", vbQuestion + vbYesNo, "Frage")
 
  If vntAntwort = vbYes Then
     With ActiveSheet
        .SaveAs ThisWorkbook.Path & "\" & .Range("C5").Value, 51
     End With
  Else
     Cancel = True
  End If
End Sub

Deine Datei darfst Du aber nicht als xlsx-Datei speichern, sondern als xlsm bzw. xlsb abspeichern.

Wenn Du auf Drucken klickst, kommt eine Abfrage, wenn Du sie mit Ja beantwortest, wird eine Datei als xlsx-Datei mit dem Namen aus der Zelle C5 abgespeichert und auch gedruckt. Wenn Nein erfolgt kein Ausdruck und es wird auch nicht gespeichert.

Hi,

danke, habe es gerade mal versucht, aber wenn ich den Code in der Visual Basic Schaltfläche einfüge/erstelle und die Mappe wie beschrieben als .xlsb abspeichere, fragt er beim drucken nicht nach es auch abzuspeichern.  

[Steffl]

Hallo,

Datei abgespeichert, geschlossen und wieder aufgerufen? Und beim Starten die Makros aktiviert?

[Manitu03]

Ja, alles gemacht. Hier auch mal ein Screenshot wo ich es rein geschrieben hatte.

[Kuwer]

Ja, alles gemacht. Hier auch mal ein Screenshot wo ich es rein geschrieben hatte.

Stefan schrieb doch extra, wohin das Makro gehört!

Gruß Uwe

[Manitu03]

Oha, ja, wer lesen kann ist klar im Vorteil, danke. 

Allerdings erhalte ich nun eine Fehlermeldung beim Ausdrucken (-siehe Screenshot) : Fehler beim Kompilieren - Synthaxfehler. 

[Steffl]

Hallo,

keine Ahnung. Könntest Du die Datei hier hochladen?

[Kuwer]

Hallo,

benutzt Du den Edge-Browser? dann schau mal hier.

Gruß Uwe

[Manitu03]

Ah, ja das war es.  :28: 
Wenn ich die Zeilen mit Firefox rüber kopiere funktioniert es. 

Jetzt speichert er die Datei auf dem Desktop. Jetzt müsste ich nur noch wissen, wie man den Speicherort ändern kann. (-Die Datei soll ja von anderen bearbeitet werden und danach in meinen Ordner gespeichert werden).

[Steffl]

Hallo,

.....Die Datei soll ja von anderen bearbeitet werden und danach in meinen Ordner gespeichert werden).

und jeder deiner Kollegen hat auf deine Ordner Zugriff? Dann gebe diesen anstatt dem ThisWorkbook.Path an.