felix_gorgas
Lieutenant
- Registriert
- Dez. 2005
- Beiträge
- 591
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.
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
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.
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
