Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich, 2. Bereiche 1. Druckauftrag

Druckbereich, 2. Bereiche 1. Druckauftrag
31.03.2005 21:10:18
simon
hallo zusammen,
habe eine Tabelle auf der der Druckbereich wie folgt festgelegt wird, klappt auch gut.
Sheets("rechnungsliste").Range("k4:o" & rowl).PrintOut
Jetzt möchte ich noch zusätzlich die Zellen R5:V5 nach der letzten Zeile vom ersten Druckbereich gedruckt haben, ist das möglich? und wie ?
Bedanke mich schon mal für eure Hilfe
Gruß Simon

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich, 2. Bereiche 1. Druckauftrag
01.04.2005 00:48:41
Uwe
Hallo Simon,
probier das mal: 

Sub Command_Click()
Dim RowL As Long
Dim wsP As Worksheet
RowL = 10
Set wsP = Workbooks.Add(xlWBATWorksheet).Sheets(1)
Application.ScreenUpdating = False
Sheets("rechnungsliste").Range("k4:o" & RowL).CopyPicture
wsP.Paste wsP.Range("A1")
Sheets("rechnungsliste").Range("R5:V5").CopyPicture
wsP.Paste wsP.Range("A" & RowL - 2)
Application.CutCopyMode = False
wsP.PrintOut
wsP.Parent.Close False
Application.ScreenUpdating = True
End Sub
Gruß Uwe
Hey Super gar nicht schlecht die Idee, Danke
01.04.2005 08:52:59
simon
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige