Supportnet / Forum / Tabellenkalkulation

Hallo ! Ist es möglich das ich ein Arbeitsblatt in Excel offen habe, dieses 2x ausgedruckt wird wenn ich nur 1x auf "drucken" gehe. und dann kommt das 2.Batt auch nocht mit KOPIE herraus ? Ist so was möglich ? Danke ce

Guten Tag djsquirred,

hier ein Makro, das deinen Wünschen entgegen kommen wird.
Zu beachten ist die Zelle F13, in die bei mir das Wort Duplikat eingesetzt wird. Der Schriftzug wird in Arial Italic Bold formatiert.
Am Ende des Makros wird die Arbeitsmappe automatisch gespeichert. Soll der Befehl nicht ausgeführt werden, dann einfach ein Hochkomma dovor setzen. Siehe Taste rechts neben dem Ä.
Zum Schluss springt der Cursor wieder auf die Zelle A1 zurück.

Sub ZweiDrucke()
With Application
.StandardFont = "Arial"
.StandardFontSize = "10"
.EnableSound = True
.RollZoom = False
End With

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Range("F13").Select
ActiveCell.FormulaR1C1 = "D u p l i k a t"
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Underline = xlUnderlineStyleSingle
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With

ActiveWorkbook.Save

Range("A1").Select

End Sub

Gruß
Joachim

• Datum automatisch übertragen!
• Ein A5 Dokument mittig auf ein A4 Blatt drucken
• Zeilen in ein anderes Blatt kopieren und gleichzeitig sortieren