| |
| Xometry verstärkt sein Angebot für die Blechbearbeitung: Mehr Fertigungsoptionen und bessere Sofort-Angebote, eine Pressemitteilung
|
Autor
|
Thema: Druckfunktion auf Schaltfläche (10166 mal gelesen)
|
bytzmaster Mitglied
Beiträge: 5 Registriert: 13.07.2007
|
erstellt am: 13. Jul. 2007 22:42 <-- editieren / zitieren --> Unities abgeben:
Hallo ich bin noch ziemlich frisch dabei und hätte da mal eine frage. und zwar wie bekomme ich es hin, dass wenn ich auf einen button klicke den ich erstellt habe, er mir die aktuell anezeigte seite ausdruckt? habe da schon etliche sache im vbafenster eingeschrieben, aber bisher leider kein erfolg ;( wäre nett, wenn mir jmd helfen könnte mfg bytzmaster Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 13. Jul. 2007 23:02 <-- editieren / zitieren --> Unities abgeben: Nur für bytzmaster
Code: Sub drucken() With Sheets("dein auszudruckendes Tabelleblatt") .PageSetup.PrintArea = "$A$10:$G$22" 'Druckbereich festlegen .PrintOut 'Drucken .PageSetup.PrintArea = "" 'Druckbereich wieder entfernen End With End Sub
oder Code: Sub aktuellesBlattdrucken() ActiveSheet.PageSetup.PrintArea = "$A$1:$F$25" 'Druckbereich festlegen ActiveSheet.PrintOut 'Drucken ActiveSheet.PageSetup.PrintArea = "" 'Druckbereich wieder entfernen End Sub
und das ganze einer Schaltfläche zuweisen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bytzmaster Mitglied
Beiträge: 5 Registriert: 13.07.2007
|
erstellt am: 13. Jul. 2007 23:06 <-- editieren / zitieren --> Unities abgeben:
danke sehr für die schnelle antwort! Zitat: Original erstellt von Thomas Harmening: und das ganze einer Schaltfläche zuweisen
und wie genau weise ich diese funtion einer schaltfläche zu? *blödfrag* ich hab es so ausprobiert: Private Sub CommandButton2_Click() Sub aktuellesBlattdrucken() ActiveSheet.PageSetup.PrintArea = "$e$3:$ab$36" 'Druckbereich festlegen ActiveSheet.PrintOut 'Drucken ActiveSheet.PageSetup.PrintArea = "" 'Druckbereich wieder entfernen End Sub geht aber net ;/ [Diese Nachricht wurde von bytzmaster am 13. Jul. 2007 editiert.] [Diese Nachricht wurde von bytzmaster am 13. Jul. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 13. Jul. 2007 23:33 <-- editieren / zitieren --> Unities abgeben: Nur für bytzmaster
Code: Private Sub CommandButton2_Click() ActiveSheet.PageSetup.PrintArea = "$e$3:$ab$36" 'Druckbereich festlegen ActiveSheet.PrintOut 'Drucken ActiveSheet.PageSetup.PrintArea = "" 'Druckbereich wieder entfernen End Sub
so sollte es funktionieren, 2 mal Sub ist Error ,)Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bytzmaster Mitglied
Beiträge: 5 Registriert: 13.07.2007
|
erstellt am: 13. Jul. 2007 23:36 <-- editieren / zitieren --> Unities abgeben:
|
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 13. Jul. 2007 23:41 <-- editieren / zitieren --> Unities abgeben: Nur für bytzmaster
|
bytzmaster Mitglied
Beiträge: 5 Registriert: 13.07.2007
|
erstellt am: 13. Jul. 2007 23:57 <-- editieren / zitieren --> Unities abgeben:
wenn wir wir einmal dabei sind wie kann ich nen hyperlink auf eine Schaltfläche verweisen?(denke ma gleiches schema wie oben?) wie gesagt bin noch ziemlich grün hinter den ohren,was excel betrifft ;/ [Diese Nachricht wurde von bytzmaster am 13. Jul. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bytzmaster Mitglied
Beiträge: 5 Registriert: 13.07.2007
|
erstellt am: 14. Jul. 2007 00:07 <-- editieren / zitieren --> Unities abgeben:
|
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 14. Jul. 2007 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für bytzmaster
Guten Morgen zusammen, und herzlich Willkommen bei cad.de ich steig mal kurz mit ein um Dich auf unsere Suchfunktion aufmerksam zu machen auch in jedem Brett oben links zu finden und als WE-Service gibt es einen passenden Treffer gleich mit dazu ;-) Suchbegriff: Inhaltsverzeichnis Schlagwort: hyperlink ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 14. Jul. 2007 10:24 <-- editieren / zitieren --> Unities abgeben: Nur für bytzmaster
Und weil Du scheinbar zukünftig öfter was mit VBA machen möchtest, hier mal ein paar Tipps für den Einstieg: Gerade am Anfang, wo einem noch die ganzen Begriffe fehlen, nach denen man dann in F1 und Forum sinnvoll suchen kann, tut der MakroRekorder gute Dienste. Wenn man dann diese Tipps beherzigt, kann man mit dem durchaus was anfangen ;-) Ich empfehle im VBA-Editor die damit erhaltenen oder hier durch C&P geschnippselten ;-) Makros Schritt für Schritt durch zu gehen (mit F8) und dabei schauen, was im Einzelnen passiert. Wenn Du "echte" Namen verwendest, also nicht sowas wie ActiveSheet, gibt es die IntelliSense, im laufenden Code gibt es Maus-hints, das Lokalfenster <- mein persönliches Aha-Erlebnis und den Direktbereich. Alles mal anschauen, F1 dabei und lesen, lesen, lesen ;-) ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |