Druckbereich, 2. Bereiche 1. Druckauftrag

Bild

Betrifft: Druckbereich, 2. Bereiche 1. Druckauftrag von: simon
Geschrieben am: 31.03.2005 21:10:18

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

Bild


Betrifft: AW: Druckbereich, 2. Bereiche 1. Druckauftrag von: Uwe Küstner
Geschrieben am: 01.04.2005 00:48:41

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


Bild


Betrifft: Hey Super gar nicht schlecht die Idee, Danke von: simon
Geschrieben am: 01.04.2005 08:52:59

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Druckbereich, 2. Bereiche 1. Druckauftrag"