automatisches drucken einbauen

Hallo zusammen,
ich habe es mal gesehen, weiß aber nicht was man machen muss um meine Idee umzusetzen.
Meine Excel Tabelle hat zwei Reiter, einmal die Übersicht und einmal das Etikett.
Ich arbeite in dem Reiter Übersicht gebe dort den Zeileninhalt ein und möchte dann in dem Reiter Übersicht auf einen Button drücken und Excel übernimmt die Werte in das Blatt Etikett und startet den Druckauftrag. Oder macht zu mindestens die Seitenansicht, auf so dass ich den Drucker wählen kann und den Druckauftrag mit den automatisch eingetragenen Werten starten kann.
Ist das möglich, kann mir da einer weiterhelfen?
Ist es auch möglich, wenn ich unter dem Namen eine Mailadresse der zuständigen Person hinterlege das ich dann einen weiteren Button habe mit dem ich automatisiert eine Mail mit dem Inhalt der Spalte aus dem Reiter Übersicht an die betreffende Person senden kann?
Meine Beispieldatei liegt hier:
https://www.herber.de/bbs/user/120042.xlsx
Wenn ihr mir da helfen könntet würde ich mich sehr freuen.
Vielen Dank erst einmal und einen schönen Sonntag noch
Beste Grüße Maik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_beforedoubleclick(ByVal Target As Range) if target.column 6 then exit sub r = target.row if isempty(cells(r,1)) then exit sub range(cells(r, 1), cells(r, 5)).copy sheets(2).cells(15, 1) sheets(2).PrintPreview end sub

Hallo Maik,
deine erste hochgeladene Datei (.xlsx) könnte ich zwar herunter laden, geht aber nicht, die Forensoftware gibt aus, dass die Datei nicht gefunden wird.
Das was du jetzt hochgeladen hast (.xlsm) kann ich im Moment leider nicht herunterladen.
Aber vielleicht kann ich dir mit dem Code von Fennek ja auch so weiter helfen.
Der Code gehört ins Codemodul des Tabellenblattes auf dem du deine Daten einträgst, wohl das Tabellenblatt 1.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen und Code rechts ins Codefenster kopieren.
Der Code startet, sobald du in Spalte 6 (=Spalte F) doppelt klickst. Dann werden die Daten aus der Zeile in der du doppelt geklickt hast von Spalte A bis Spalte E ins Tabellenblatt 2 übertragen und die Druckvorschau geöffnet.
Willst du direkt ausdrucken, dann einfach im Code das .PrintPreview durch .Printout ersetzen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column  6 Then Exit Sub
r = Target.Row
If IsEmpty(Cells(r, 1)) Then Exit Sub
Cancel = True
Range(Cells(r, 1), Cells(r, 5)).Copy Sheets(2).Cells(15, 1)
Sheets(2).PrintPreview
End Sub

Gruß Werner

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column 6 Then Exit Sub r = Target.Row If IsEmpty(Cells(r, 1)) Then Exit Sub Cancel = True Cells(r, 3).Copy Sheets(2).Cells(1, 1).PasteSpecial Paste:=xlValues Cells(r, 2).Copy Sheets(2).Cells(2, 1).PasteSpecial Paste:=xlValues Cells(r, 4).Copy Sheets(2).Cells(3, 1).PasteSpecial Paste:=xlValues Cells(r, 5).Copy Sheets(2).Cells(4, 1).PasteSpecial Paste:=xlValues Application.CutCopyMode = False Sheets(2).PrintPreview End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatisches drucken einbauen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread