ich sitz hier grad und bastle an einem Ausschusserfassungsprogrämmchen herum, leider klappt das noch nicht ganz so wie ich das gern hätte.
Bis jetzt läuft das so ab, dass ich automatisch nach der Übernahme der Daten per Knopfdruck einen Sperrzettel ausdrucke und das E-Mail-Programm öffne um die Daten an den Vertrieb zu schicken.
Jetzt wollte ich noch einfügen, dass ich den Druck des Sperrzettels nur nach vorherigem Aktivieren eines Kontrollkästchens ausführen kann um nicht zuviel Papier zu verschwenden. Aber da ich leider noch nicht so viel Ahnung hiervon habe klappte das natürlich nicht und meine Behelfslösung
(Code Checkbox)
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("Z1").Value = "Drucken"
Else
Range("Z1").Value = "Kein Druck"
End If
End Sub
(Code im Makro)If Range("Z1") = "Drucken" Then ; habs auch mit Range("Z1").Value, Drucken ohne "" probiert kP :-(
Application.ActivePrinter = "Canon iP4500 series auf Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
will auch noch nicht so richtig.
Kann mir vielleicht jemand von Euch weiterhelfen?
Herzlichen Dank schon mal im Voraus,
Gruß, Michael