VisualBasic VBS Befehle und Excel (Druckbereich)

[felix_gorgas]

Hi Leute,

wir haben eine neue Konstruktionssoftware und bei dieser wird eine Stückliste generiert. Ich habe das nun auf unsere Bedürfnisse angepasst doch stocke an einer Stelle: dem Druckbereich.

Zum Dokument:
Es liegen in einer Excel Tabelle 6 Untertabellen vor. In jeder wird der gleiche Kopf verwendet. Einzig der Inhalt an sich und die Sortierung wird unterschieden.

Ich möchte, dass der Druckbereich in den Spalten A bis L auf eine Breite (A4 Quer) gestellt wird und die Länge auf Automatisch bleibt. Somit werden immer nur die wirklich benötigten Seiten ausgedruckt. Simpel gesagt: Druckbereich auf die Spalten A bis L in der Breite fixieren. Der Rest kommt mit dem Drucksetup.

Das ganze wird als VBScript Datei angezeigt und stimmt nur bedingt mit den VBA Ausführungen überein.

Hier mal ein paar Befehle:
objExcel.columns(3).columnwidth = 33
objExcel.Cells(1,4).Value = ISDGetText("felix_gorgas")
objExcel.Worksheets(MySheetName1).Range("D4:I4").Borders(xlEdgeBottom).Color = RGB(0,0,0)

Ich habe schon soetwas probiert, aber das ging natürlich nicht:
objExcel.Worksheets(MySheetName1).Range("$A:$L").PrintArea

Ich hoffe, Ihr könnt mir wieder helfen....

Wenn ihr das Dokument braucht, sagt einfach bescheid. Ich muss dann nur empfindliche Daten/Bereiche entfernen (deshalb ists noch nicht angehängt )

MfG

PS: ich habe den gleichen Thead im Office Forum offen, da es schlecht einzuordnen ist. Excel und VBS greifen hier ineinander.

 

[nixdagibts]

Moment, du sagst, dass folgender Befehl nicht geht?
(Das ist jetzt nur ein Beispiel. Du musst natürlich den Bereich anpassen.)

ActiveSheet.PageSetup.PrintArea = "R1C1:R10C10"

 

[felix_gorgas]

Danke, das probiere ich gleich morgen aus.

ActiveSheet.PageSetup.PrintArea = "R1C1:R10C10"

Das sage ich nicht, denn diesen habe ich nicht genutzt ...

Schönen Abend noch!


EDIT:
Funktioniert in angepasster Form:

objExcel.Worksheets(MySheetName1).PageSetup.PrintArea = "R:M"

brachte die Lösung. Danke!