Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereiche unterschiedlich

Druckbereiche unterschiedlich
03.01.2013 16:02:15
Albert
Hallo zusammen,
hätte da mal ein Problem und wär euch für nen Tipp dankbar.
Ich möchte fünf verschiedene Sheets einer Tabelle ausdrucken, deren Druckbereich im bereits im Vorfeld definiert habe.
Sheet 1: B1:L124
Sheet 2: B1:H114
Sheet 3: B1:H86
Sheet 4: B1:H103
Sheet 5: B1:H74
Wie ihr seht, weicht die Spaltenanzahl zwischen Sheet 1 und den anderen ab.
Mein bisheriges Makro spuckt das Sheet 1 als eigenen pdf-Ausdruck aus und die Sheets 2 bis 5 in einem pdf-Ausdruck.
Ich kann's mir nicht erklären, vielleicht wisst ihr ja weiter.
Anbei mal meinen Code...
Sub Alles_Drucken()
Dim intR As Integer
Dim ArrDruck() As String
Sheets("Ergebnisauswertung").Select                                  'Deckblatt mit Ergebnissen  _
erzeugen
Range("B1:L114").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$L$114"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$L$114"
Set ActiveSheet.HPageBreaks(1).Location = Range("B37")
Sheets("Mitarbeitersysteme").Select                                  'Nächstes Sheet  _
Mitarbeitersysteme
Range("B1:H154").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$154"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$154"
Set ActiveSheet.HPageBreaks(1).Location = Range("B57")
Set ActiveSheet.HPageBreaks(2).Location = Range("B103")
Sheets("Qualitätssysteme").Select                                       'Nächstes Sheet  _
Qualitätssysteme
Range("B1:H120").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$120"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$120"
Set ActiveSheet.HPageBreaks(1).Location = Range("B54")
Sheets("Materialsysteme").Select                                       'Nächstes Sheet  _
Materialsysteme
Range("B1:H76").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$76"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$76"
Set ActiveSheet.HPageBreaks(1).Location = Range("B38")
Sheets("Methoden und Werkzeuge").Select                         'Nächstes Sheet  _
Methoden und Werkzeuge
Range("B1:H144").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$144"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$144"
Set ActiveSheet.HPageBreaks(1).Location = Range("B53")
Set ActiveSheet.HPageBreaks(2).Location = Range("B102")
_
' Druckeransteuerung
_
Sheets(Array("Ergebnisauswertung", "Mitarbeitersysteme", "Qualitätssysteme", " _
Materialsysteme", _
"Methoden und Werkzeuge")).Select
Sheets("Ergebnisauswertung").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereiche unterschiedlich
03.01.2013 16:21:09
Rudi
Hallo,
eine Erklärung hab ich auch nicht, nur Verbesserungspotenzial.
Ohne die Selects und doppelte Zuweisung der PrintArea. 
Sub Alles_Drucken()
Dim intR As Integer
Dim ArrDruck() As String
With Sheets("Ergebnisauswertung")
'Deckblatt mit Ergebnissen erzeugen
With .PageSetup
.PrintArea = "$B$1:$L$114"
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Set .HPageBreaks(1).Location = .Range("B37")
End With
With Sheets("Mitarbeitersysteme")
'Nächstes Sheet Mitarbeitersysteme
With .PageSetup
.PrintArea = "$B$1:$H$154"
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Set .HPageBreaks(1).Location = .Range("B57")
Set .HPageBreaks(2).Location = .Range("B103")
End With
With Sheets("Qualitätssysteme")
'Nächstes Sheet Qualitätssysteme
With .PageSetup
.PrintArea = "$B$1:$H$120"
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Set .HPageBreaks(1).Location = .Range("B54")
End With
With Sheets("Materialsysteme")
'Nächstes Sheet Materialsysteme
With .PageSetup
.PrintArea = "$B$1:$H$76"
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Set .HPageBreaks(1).Location = .Range("B38")
End With
With Sheets("Methoden und Werkzeuge")
'Nächstes Sheet Methoden und Werkzeuge
With .PageSetup
.PrintArea = "$B$1:$H$144"
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Set .HPageBreaks(1).Location = .Range("B53")
Set .HPageBreaks(2).Location = .Range("B102")
End With
' Druckeransteuerung
Sheets(Array("Ergebnisauswertung", "Mitarbeitersysteme", _
"Qualitätssysteme", "Materialsysteme", _
"Methoden und Werkzeuge")).Select
Sheets("Ergebnisauswertung").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Gruß
Rudi

Anzeige
AW: Druckbereiche unterschiedlich
04.01.2013 07:25:37
Albert
Guten Morgen Rudi,
übersichtlicher sieht's auf alle Fälle aus.
Ich hab deine Veränderung getestet. Leider werden noch immer zwei Druckaufträge ausgegeben.
Ob es vielleicht wirklich an den Spaltenanzahlen liegt?
Vielen Dank trotzdem für deinen Tipp.
LG
Albert

AW: Druckbereiche unterschiedlich
05.01.2013 11:19:28
schauan
Hallo Albert,
was wird in den einzelnen Aufträgen gedruckt? Was sagen eigentlich die Parameter 13 - 15? Ich hab nur eine Beschreibung von 12 Parametern. 
 Hoffe, geholfen zu haben. Grüße, André aus G in T  (xls 97-2013)

AW: Druckbereiche unterschiedlich
06.01.2013 11:11:35
fcs
Hallo Albert,
Excel hat leider die Angewohnheit, bei manchen PDF-Druckern mehrere Druckjobs abzuschicken, wenn beim Drucken mehrerer Tabellenblätter das Blattformat zwischen Quer- und Hochformat wechselt.
Evtl. ist die seit Office 2007 bestehende Möglichkeit Dateien direkt im PDF-Format zu speichern/exportieren eine Alternative.
Die Vorgaben für Pfad und Dateiname der PDF-Datei muss du ggf. im Beispielmakro anpassen.
Gruß
Franz 
Sub PDF_selektierteBlaetter()
' PDF_selektierteBlaetter Makro
Dim strFileName As Variant, strPath As Variant
Sheets(Array("Ergebnisauswertung", "Mitarbeitersysteme", "Qualitätssysteme", _
"Materialsysteme", "Methoden und Werkzeuge")).Select
Sheets("Ergebnisauswertung").Activate
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Ordner für PDF-Datei wählen"
.InitialFileName = VBA.CurDir
If .Show = -1 Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
strPath = strPath & Application.PathSeparator
strFileName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
strFileName = InputBox(prompt:="Bitte Namen für PDF-Datei eingeben", _
Default:=strFileName, _
Title:="Drucken-PDF - Verzeichnis: " & strPath)
If strFileName  "" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & strFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Sheets("Ergebnisauswertung").Select
End Sub

Anzeige
AW: Druckbereiche unterschiedlich
06.01.2013 13:05:54
Albert
Servus Franz,
wo du Recht hast, hast du Recht. Wieso drucken, wenn speichern auch geht?!
Ich werd am Montag deinen Code gleich mal testen.
Dankeschön
Albert

AW: Druckbereiche unterschiedlich
07.01.2013 15:35:18
Albert
Servus Rudi,
nachdem ich dein Makro ausgeführt hatte, sind alle meine Drucker gelöscht worden/verschwunden/nicht mehr auffindbar...
Nun muss ich mich erstmal diesem Problem widmen. Shit.
VG
Albert

AW: Druckbereiche unterschiedlich
07.01.2013 23:47:21
fcs
Hallo Albert,
ich kann mir jetzt nicht vorstellen, dass es an dem Makro liegt.
Denn bei mir auf meinem Privatrechner funktioniert es einwandfrei.
Sowohl mit deiner Variante (PDF-Drucken) als auch mit PDF-Export ohne das die eingerichteten Drucker-Einstellungen zerschossen werden.
Ich hoffe du kannst die Drucker neu einrichten, ohne viele Sachen neu installieren zu müssen.
Gruß
Franz

Anzeige
AW: Druckbereiche unterschiedlich
08.01.2013 09:35:52
Albert
Moin Franz,
ich muss dir Recht geben, zuhause funktionierts genauso wie du beschrieben hast.
Anscheinend funzelt etwas am Netzwerk nicht richtig.
Jedenfalls waren heute morgen wieder alle Drucker da, wo sie hingehören.
Ich dank dir auf alle Fälle recht herzlich für deine Unterstützung.
D&G
Albert

AW: Druckbereiche unterschiedlich
08.01.2013 13:51:14
Hajo_Zi
Hallo Albert,
irgendwie habe ich überlesen was offen ist?

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige