Hallo Reinhard,
- Versuch einer Antwort. Vorherige Texte werden gelöscht, wenn ich in der 2. Instanz von IE6 browse.
Bücher:
„VBA-Programmierung mit MS-Excel, Das Profibuch“, Monika Weber, Microsoft Press,
„MS Excel Version 2002, Visual Basic, Schritt für Schritt“, Reed Jacobson, Microsoft Press,
„Excel-VBA, Die Praktische Referenz“, Bernd Held, Markt+Technik,
„Access VBA, GE-PACKT“, Meinhard Schmidt, mitp,
„Visual Basic, Excel Makro-Programmierung“, Helma Spona, KnowWare, Heft 126,
„ACCESS 2002 für Einsteiger“, Thomas Barkow, KnowWare, Heft 172,
„Access Formulare und Bereichte“, Thomas Barkow, KnowWare, Heft 18,
„Access 97/2000 für Fortgeschrittene“, Rainer Schubert, KnowWare, Heft 154,
„Access mit Makro automatisieren“, Thomas Barkow, KnowWare, Heft 29.
M. Weber:
http://www.jumper.ch/
Hat kein Forum (mehr). Unter W98SE habe ich meine ersten WORD2000 Versuche gestartet und sie hat mir gute Tipps gegeben.
Was bedeutet
PrintQuality = -3
? Soll das Entwurfqualität sein ?
Habe ich ohne Erklärung im I-Net gefunden. Da fragt man sich sofort : „Davon gibt’s noch mehr ! -2, -1, 0, 1, …?“
VBA-Hilfe :
PrintQuality -> F1 : PrintQuality-Eigenschaft
Beispiele:
Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)
MsgBox "Horizontal Print Quality is " & \_
Worksheets("Sheet1").PageSetup.PrintQuality(1)
nix von xlHoch, xlMittel oder xlEntwurf
Glücksspiel die richtige Lösung zu finden. Da ich aber kein Glück im Spiel habe, muß ich immer noch für wenig Geld viel arbeiten und am Geldende ist immer noch viel Monat übrig.
PageSetup -> F1 : PageSetup-Objekt
Verwenden Sie die PageSetup-Eigenschaft, um ein PageSetup-Objekt zurückzugeben. Im folgenden Beispiel wird das Papierformat auf Querformat gesetzt und das Arbeitsblatt gedruckt.
With Worksheets("Sheet1")
.PageSetup.Orientation = xlLandscape
.PrintOut
End With
Wie heißt dann Hochformat ??? Keine Information !!
Buch :
„Excel-VBA, Die Praktische Referenz“, Bernd Held, Markt+Technik,
Seite 428, Listing 9.44 : Die Methode rahmt einen Bereich ein.
With Worksheets("Tabelle7").Range("A1:E9").BorderAround \_
.LineStyle:=xlDashDot, ColorIndex:=5, \_
Weight:=xlThick
End With
Geht nicht. Langes Fluchen und Probieren . Lösung bei mir :
With Sheets("DRUCK").Range("A" & AnfZeile & ":H" & EndZeile).BorderAround \_
(LineStyle:=xlContinuous, \_
Weight:=xlMedium, \_
ColorIndex:=xlAutomatic)
End With
Die Klammern waren das Problem. Man sucht natürlich bei sich zuerst die Fehler und nicht bei B. H. !
Eigenleistung :
Bevor ich die Foren-Spezialisten mit meinen dussligen Fragen belästige, stöbere ich in den oben genannten Büchern und stundenlang im Internet, und selbst bei Fachfragen kommt man da kaum an Pornoseiten vorbei.
Dito *gg* manchmal babble ich zuviel.
Ich auch! Und das auch gut so. Was Persönliches muß sein, wir sind doch keine Automaten.
Quintessenz : Danke für Deinen Tipp:" xlHoch, xlMittel oder xlEntwurf".
War mir nicht bekannt. Die Eigenschaften sind nicht druckerbezogen, also allgemeingültig.
Schönen Abend noch. Manne
