Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich, 2. Bereiche 1. Druckauftrag

Forumthread: 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
Anzeige

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
Anzeige
Hey Super gar nicht schlecht die Idee, Danke
01.04.2005 08:52:59
simon
.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige