Druckereigenschaften mit VBA einstellen
schoenbaechler@schule-kuessnacht Elmar Schönbächler
Wie ist es möglich mit VBA die Druckereigenschaften (z.B. Auflösung,
Qualität usw.)
einzustellen?
Herzlichen Dank
Elmar Schönbächler
Lutz Gentkow
am besten mal das Drucken als Makro aufzeichnen und dabei auf Optionen
und Eigenschaften klicken. Alle möglichen PrintOut-Eigenschaften
erscheinen dann in dem Makro.
Lutz
schoenbaechler@schule-kuessnacht Elmar Schönbächler
Hab ich probiert. Die Änderungen in den Eigenschaften werden bei mir leider
nicht aufgezeichnet.
Gruss
Elmar
Lutz Gentkow <e...@kohlschein.de> schrieb in im Newsbeitrag:
39AE9208...@kohlschein.de...
Michael Velten
>> am besten mal das Drucken als Makro aufzeichnen und dabei auf Optionen
>> und Eigenschaften klicken. Alle möglichen PrintOut-Eigenschaften
>> erscheinen dann in dem Makro.
> Hab ich probiert. Die Änderungen in den Eigenschaften werden bei mir
> leider nicht aufgezeichnet.
Hallo Elmar,
ich denke da kommst Du nur mit der 'SendKeys'-Methode weiter (siehe
Online-Hilfe). Eventuell könntest Du auch direkt die Einstellungen in
der Registry ändern.
Grüsse
Michael
--
Michael Velten
email: mic...@michnet.de
homepage: http://www.michnet.de
/* Linux - we go where we want */
Franz-Josef Raabe
mit VBA ist ein Zugriff auf die Druckertreiber nicht möglich. Übliche
Notlösung: Per Tastatur Änderungen beispielhaft durchführen, Tastenfolge
merken und mit SendKeys nachbilden.
Sieht dann - an einem Beipiel von mir - etwa so aus:
SendKeys "^p%e{left 20}{right 6}%b{enter}+{tab}+{tab}{enter}", True
blatt.PrintOut
Syntax steht in der Online-Hilfe zu SendKeys.
(20 mal Pfeil nach links hatte ich gemacht, um unabhängig von aktueller
Einstellung an einen Anfang zu kommen. Im Beispiel ging es um Papiergrößen.)
MfG
Franz-Josef
Elmar Schönbächler > schrieb in Nachricht ...
Jörg Nissen
"Elmar Schönbächler" <elmar schoenbaechler@schule-kuessnacht> schrieb im
Newsbeitrag news:OinxOPzEAHA.257@cppssbbsa04...
| Wie ist es möglich mit VBA die Druckereigenschaften (z.B. Auflösung,
| Qualität usw.)
| einzustellen?
der Druckerdialog läßt sich in Excel nicht über VBA programmieren. Es gibt
nur einige wenige Einstellmöglichkeiten, die über das PageSetup-Objekt
einzustellen sind. Ansonsten hilft nur, mehrere Drucker mit bestimmten
Einstellungen anzulegen und je nach Bedarf auf dem entsprechenden Drucker zu
drucken.
mfg
Jörg
Lutz Gentkow
dies sind die Eigenschaften, die mein Makro aufgezeichnet hat :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Lutz
schoenbaechler@schule-kuessnacht Elmar Schönbächler
Leider habe ich mich zu unklar ausgedrückt!
Ich möchte die Druckqualität festlegen (Auflösung in Punkten)
Übrigens bei mir sieht die Aufzeichnung viel spärlichr aus (ohne with..)
Nochmals Dank
Elmar
Lutz Gentkow <e...@kohlschein.de> schrieb in im Newsbeitrag:
39AEA9C7...@kohlschein.de...
schoenbaechler@schule-kuessnacht Elmar Schönbächler
Mit Deinen Angaben bin ich leider überfordert!
Ich weiss nicht, wie ich die Änderung mit der Tastatur durchführen oder
aufzeichnen kann.
Oder mit anderen Worten wie kommst Du auf die Zeile:
SendKeys "^p%e{left 20}{right 6}%b{enter}+{tab}+{tab}{enter}", True
Herzlichen Dank
Elmar
Franz-Josef Raabe <F-J....@rhein-main.net> schrieb in im Newsbeitrag:
O#e2s20EAHA.275@cppssbbsa05...
Franz-Josef Raabe
Hallo Elmar,
>Ich weiss nicht, wie ich die Änderung mit der Tastatur durchführen
fast alles, was in EXCEL mit der Maus angeklickt wird, geht irgendwie auch
über die Tastatur. Wenn Du mit der Maus auf "Datei" klickst, siehst Du bei
der Auswahl "Drucken" dahinter Strg+P. Also kann man statt mit der Maus
einfach Strg+P auf der Tastatur eingeben und hat das Druckfenster. Wenn kein
solcher ShortCut vorhanden ist, gibt es allgemeinere Methoe: Wenn bei einer
Menu-Auswahl ein Buchstabe unterstrichen ist, kann man statt mit der Maus
anklicken auf der Tastatur Alt+Buchstabe eingeben. Das Druckfenster bekommst
Du daher auch mit zweimal Alt+D. Wenn das Druckfenster mal steht, kommst Du
in der gleichen Logik mit Alt+E auf Eigenschaften. Von da an ist die Auswahl
dann abhängig vom Druckertreiber. Mit TAB kann man in der Regel zwischen den
verschiedenen Buttons und Eingaben wechseln, bei Auswahlen gehen oft die
Pfeiltasten.
>oder aufzeichnen kann.
Mit Papier und Bleistift.
>Oder mit anderen Worten wie kommst Du auf die Zeile:
>SendKeys "^p%e{left 20}{right 6}%b{enter}+{tab}+{tab}{enter}", True
Welche Tasten, siehe oben. Umsetzung in SendKeys ist die Online-Hilfe o.k.
MfG
Franz-Josef
Jörg Nissen
"Elmar Schönbächler" <elmar schoenbaechler@schule-kuessnacht> schrieb im
Newsbeitrag news:eo1oyk1EAHA.196@cppssbbsa05...
| Leider habe ich mich zu unklar ausgedrückt!
| Ich möchte die Druckqualität festlegen (Auflösung in Punkten)
| Übrigens bei mir sieht die Aufzeichnung viel spärlichr aus (ohne with..)
auch auf die Gefahr hin, daß Du mich wieder ignorierst, sieh Dir einfach mal
"PrintQuality" in der Online-Hilfe an.
mfg
Jörg
Rolf Califice
think on Thu, 31 Aug 2000 15:53:59 -0300 e.g.:
>Hallo Elmar,
>
>dies sind die Eigenschaften, die mein Makro aufgezeichnet hat :
>
>With ActiveSheet.PageSetup
>>>>>>>>
>End With
>
>Lutz
Hast Du schön gemacht, Lutz!
Aber das sind die Einstellungswerte für den Seitenumbruch ;-)
Gruß,
Rolf Ca.
--
3-4 <=> X
http://www.auvista.com/sc100.htm ' das besondere Schmankerl
http://www.excel-center.de/excel/links.htm
http://www.vba-magazin.de/tippsexcel.htm
http://www.add-in-world.com/katalog/#excel ein Blick lohnt immer!
http://www.microsoft.com/germany/office/anwenderforum/tipps/excel/archiv.htm
http://www.ti5.tu-harburg.de/manual/vba5/httoc.htm