Hi Leuts,
ich hoffe ihr könnt mir weiterhelfen.
Ich habe mit VB eine Excel Tabelle geschrieben und abgespeichert.
Das funzt ja auch. Diese Tabelle möchte ich nun gerne aus VB ausdrucken. Ich habe es schon mit
'Printer.Print App.Path & „test.xls!Tabelle1!Z1S1:Z36S10“
probiert, aber er druckt mir dann nur den Pfad mit den Tabellennamen aus.
Erstmal aber vielen dank, dass ihr mein Problem durchgelesen habt und hoffentlich könnt ihr mir auch helfen.
Danke!
René
hallo rene,
dud musst dir ein excel9.0-objekt in vb einbinden.
mit der excel-instanz lädst du deine tabelle
danach druckst du über diese instanz…
fertig
gruß
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi RASTA,
Danke für deinen Tipp und ich habe ihn so umgesetzt:
Private Sub cmdDrucken_Click()
Dim wb As object
Set wb = GetObject(App.Path & „\test.xls“)
wb.Worksheets(1).PrintOut
End Sub
Das war es auch, was ich haben wollte, danke.
Jetzt habe ich aber noch eine Frage, wie kann man das auch im
Querformat drucken. Ich habe es auch schon mit .PrintPreview anstatt .Printout
probiert,weil ich gedacht habe, das man dann in der Vorschau einstellen kann ob Quer- oder Hochformat, nur leider funktioniert das bei mir nicht. Kannst du mir vielleicht helfen?
Danke!
René
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hallo rene,
soweit ich weis, geht das mit
with pagesetup
.format = landscape
end with
bin mir nicht sicher, bzw. ist ein syntax-fehler drin.
probiere es doch mal mit dem macrorecorder
auf aufzeichnen klicken, und dann das format(hoch oder querformat) einstellen. da kannst du vom recorder abkucken, wies der macht
viele grüße
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi RASTA,
auf die Idee mit den Macrorecorder hätte ich eigentlich selber kommen können, aber manchmal hat man einfach ein Brett vorm Kopf.
Der Code für’s Querformat und Drucken sieht dann bei mir so aus:
Private Sub cmdDrucken_Click()
Dim wb As object
Set wb = GetObject(App.Path & „\test.xls“)
wb.Worksheets(1).PageSetup.Orientation = xlLandscape
wb.Worksheets(1).PrintOut
End Sub
Danke, René
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]