Thema Datum  Von Nutzer Rating
Antwort
Rot Code Fehler? VBA HILFE Für Druckfunktion
 11.08.2016 09:39:15 Selle
NotSolved

Ansicht des Beitrags:
Von:
Selle		 Datum:
11.08.2016 09:39:15		 Views:
778		 Rating:
     
Antwort:
  Ja
Thema:
Code Fehler? VBA HILFE Für Druckfunktion
Hallo und wunderschönen Tag an alle :) Ich bin neu hier und suche verzweifelt Hilfe was VBA betrifft. Kurze Schilderung der Funktion: Habe eine art Abnahme Rapport, die nach jedem Drucken automatisch in der Zelle B6 um +1 erhöht. Zum Drucken habe ich ein Button erzeugt, das Drucken soll nur über den Button "Drucken" möglich sein. Beim normalen Druckweg über Kontexrmenü Drucken soll eine Meldung kommen das den Druck abbricht mit der Aufforderung das man den Button nutzen soll. Habe das alles soweit auch hinbekommen, bis auf einen kleinen Fehler den ich nicht beseitigen könnte. Und zwar, wenn ich auf meinem Button "Drucken" klicke kommt mein Druckerauswahl, hier wähle ich ganz Normal den gewünschten Drucker aus. Bestätige den, dann kommt meine Meldung "Drucken nur über den Button möglich" Die Meldung darf aber nur über den Druckversuch im Datei- Drucken bzw. normalen Druckweg kommen. Hier mein CODe den ich in der Tabelle habe: Option Explicit Sub Auftragsnummer() Dim AufNr As Long Dim Jahr As Integer Jahr = ActiveWorkbook.BuiltinDocumentProperties(6) AufNr = ActiveWorkbook.BuiltinDocumentProperties(5) If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub ActiveSheet.PrintOut 'Drucken If Jahr <> Year(Date) Then AufNr = 0 Jahr = Year(Date) ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr End If AufNr = AufNr + 1 ActiveWorkbook.BuiltinDocumentProperties(5) = AufNr Range("B6") = Format(AufNr, "00000") & "/" & Jahr End Sub Sub AufNr_zurüeck_setzen() ActiveWorkbook.BuiltinDocumentProperties(5).Value = 0 End Sub Sub Auftragsnummer_Datum_entfernen() Dim AufNr As Long AufNr = ActiveWorkbook.BuiltinDocumentProperties(5) AufNr = AufNr + 1 ActiveWorkbook.BuiltinDocumentProperties(5) = AufNr Range("B6") = AufNr End Sub Bei Diese Arbeitsmappe: Option Explicit Public Druck As Boolean Private Sub Workbook_BeforePrint(Cancel As Boolean) If Druck = False Then Cancel = True MsgBox "Drucken nur über den Button möglich!" Else Druck = False End If End Sub Könnt ihr den Code anpassen? bzw. mir Helfen? Vielen dank schonmal Gruß Selle

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Code Fehler? VBA HILFE Für Druckfunktion
 11.08.2016 09:39:15 Selle
NotSolved