Office: Querformat und Druckbereich in VBA festlegen

Hallo,

EXCEL XP 2002
Ich lasse per VBA eine Kopie einer Excel-Datei speichern. Der Code zum Speichern sieht in etwa so aus:

ActiveWorkbook.SaveCopyAs Filename:="Laufnummer.xls"
Application.Quit

Ich möchte, dass in der gespeicherten neuen Datei das Seitenformat Querformat eingerichtet ist und dass der Druckbereich wie folgt festgelegt wird: erste Seite bis S48, weitere Seiten nur wenn sich dort weiterer Inhalt befindet.
Wie kann man das in VBA umsetzen ?

Beste Grüsse,
Udo

:)

 

Moin, Udo,

wenn Du per SAveCopyAs arbeitest, müßtest Du entweder die Aktive und zu speichernde Datei dahingehend verändern oder die neue Mappe öffnen und die Änderungen vornehmen:

Code:

 

Hi jinx,
Sorry für die späte Reaktion - war krankheitsbedingt ein paar Tage nicht im Ring...
Vielen Dank für deine Hilfe ! Hab es sofort umgesetzt und den Code auch gleich etwas erweitert. Sieht nun so aus:

Code:

Hab aber noch ein Problem mit dem Bereich
".PrintArea = ActiveSheet.UsedRange.Address" :
Der Bereich nach A1:S48 soll ja nur gedruckt werden, wenn sich dort weiterer Inhalt befindet. Ich hab mich da wohl falsch ausgedrückt, denn eigentlich befindet sich da von A49:S250 schon Inhalt, ich habe ihn nur mittels bedingter Formatierung Ausgeblendet (wird erst eingeblendet, wenn A49 einen Wert aufweist). Von daher ist wohl A49:S250 immer UsedRange auch wenn es wertemässig leer ist, oder? Gibt es da noch andere Möglichkeiten den Druckbereich zu ermitteln ?
Beste Grüsse,
Udo

 

Moin, Udo,

dann solltest Du per Schleife und Überprüfung auf Zelleninhalte "" vorgehen und den Bereich als Range-Anweisung übergeben.

 

Moin jinx !

Das hört sich super an - aber damit bin ich hoffnungslos überfordert :-(
Wie kann ich das denn in VBA formulieren ?

Gruss Udo

 

Moin, Udo,

eine mögliche Art der Umsetzung wäre:

Code:

 

Hi jinx,

ich erhalte damit nur einen Druckbereich, der die erste Zeile umfasst, danach ist Schluss. Vermute, dass es daran liegt dass die erste Seite eine Art Formular ist mit diversen Leerfeldern. Kann der Code so umgeschrieben werden, dass Bereich A1:R45 definitv immer als Druckbereich festgelegt wird und erst danach die Zellinhalte wie von dir beschrieben auf Inhalt geprüft werden ?

Gruss Udo

 

Halo jinx,

möglicherweise ist meine letzte Frage zwischen allen anderen "untergegangen"... kannst du dir das bitte nochmal ansehn ?

Gruss Udo

 

Hallo, ich mische mich einfach mal ein.

Wenn du den lngCounter auf 49 statt auf 1 setzt und den Rest so lässt, werden alle Zeilen von 1 bis 49 gedruckt, plus die Zeilen ab Zeile 50, die nicht leer sind!

Gruß

Frank

 

Hallo Frank,

Das ist ja so einfach (wen man´s erstmal weiss) und klappt so prima - vielen Dank !

Gruss Udo

 

*biggrin.gif*
Freut mich, dass ich die helfen konnte. Jeder Zeit wieder!
So ist das mit der Programmierung. Wenn man drauf kommt, ist es einfach. Wenn nicht, sitzt man da, wie die Katze vorm Kalender!

Gruß

Frank

 

Moin, Udo,

Du hast nach einer Überprüfung gefragt, ob Zellwerte leer sind - die habe ich geliefert. Da ist von meiner Seite schon nichts untergegangen...

 

Hallo,

sorry, dass ich diesen alten Thread wieder auskrame.
Aber mir hat der Code oben sehr gut geholfen, würde aber gerne noch eine kleine Änderung einbauen, die ich bisher nicht hinbekommen habe.

Mein aktueller Code
Code:

Klicke ich auf den Drucken Button werden nun alle Zeilen der Exceldatei gedruckt, in deren ersten Spalte eine Zahl (Startnummer)

 

benutze doch den Autofilter.

 

kann man den Autofilter auf den Druckbereich beziehen? Die Anzeige soll unverändert bleiben, weil das eine Wettkampf-Ergebnisanzeige ist.