Drucken der Seite, in welcher sich der Cursor befindet - www.Office-Loesung.de - - - - - - - - - - - - - - - - - -

Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-

Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten :: Registrieren :: Profil :: Briefkasten :: Login

Drucken der Seite, in welcher sich der Cursor befindet

Office Forum -> Excel Forum -> Excel Tipps & Tricks
zurück: Variablenname als String weiter: Anzeigefehler in Excel 2007 und 2003		Unbeantwortete Beiträge anzeigen
	Status: Information	Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Autor

Nachricht

Nepumuk
VB / VBA Programmierer

Verfasst am:
30. Jan 2010, 22:58
Rufname: Max
Wohnort: Dusseldoof

- Drucken der Seite, in welcher sich der Cursor befindet

Nach oben

Version: Office 2k (2000)

Hallo,

Exceltabellen bestehen ausgedruckt oft aus mehreren Seiten. Mit folgender Routine ist es möglich, automatisch die Seite zu drucken, in welcher sich der Cursor befindet.

Code:

Public Sub Drucken_Aktuelle_Seite()
Dim intVPageBreak As Integer, intHPageBreak As Integer
Dim lngView As XlWindowView, lngPage As Long
lngView = ActiveWindow.View
Application.ScreenUpdating = False
ActiveWindow.View = xlNormalView
With ActiveSheet
For intVPageBreak = 1 To .VPageBreaks.Count
If .VPageBreaks(intVPageBreak).Location.Column > ActiveCell.Column Then Exit For
Next
For intHPageBreak = 1 To .HPageBreaks.Count
If .HPageBreaks(intHPageBreak).Location.Row > ActiveCell.Row Then Exit For
Next
lngPage = .HPageBreaks.Count * (intVPageBreak - 1) + intHPageBreak
.PrintOut From:=lngPage, To:=lngPage
End With
ActiveWindow.View = lngView
Application.ScreenUpdating = True
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool

Nach oben

Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1

Gehe zu:

Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum herunterladen

Forum / Themen		Antworten	Autor	Aufrufe	Letzter Beitrag
Verwandte Themen
	Excel Formeln: Bezug aendern, der sich INNERHALB einer Formel befindet	9	abc456	131	23. Dez 2009, 19:44 abc456
	Excel Hilfe: tabelle rechte seite soll immer mitscrollen	9	kaptan2002	318	24. Nov 2009, 00:02 kaptan2002
	Excel VBA (Makros): per vba eine pdf drucken, aber mit hyperlinks	0	Fasziniert von vba	204	21. Sep 2009, 07:48 Fasziniert von vba
	Excel VBA (Makros): Cursor springen	0	Michael7384	425	08. Jul 2009, 15:21 Michael7384
	Excel Formate: Erste Seite quer, zweite Seite hoch im selben Sheet	1	Stomi	484	08. Mai 2009, 10:35 Thomas Ramel
	Excel Formate: Problem bei Seite einrichten, drucken	5	Strigas	812	20. März 2009, 14:58 Gast
	Excel VBA (Makros): Mehrere Tabellenblätter über eigenen Button drucken	5	Schnuff	2124	11. Nov 2008, 07:44 TomP
	Excel Hilfe: Strichline beim Drucken	11	chrisbln	211	11. Mai 2008, 11:53 < Peter >
	Excel VBA (Makros): Einzelnes Tabellenblatt aber nur Seite 1 speichern	1	Babbelgei	451	16. Okt 2007, 20:57 bst
	Excel VBA (Makros): Tabellenspalten auf extra Blatt drucken	8	Exe_Hexe	349	07. Okt 2007, 10:21 Exe_Hexe
	Excel Auswertungen: DB>Wawi>suche>Bon/Quittung drucken	0	catiTB	523	03. Mai 2007, 13:22 catiTB
	Excel VBA (Makros): Mails aus Excel drucken. Schalter Mail mit Word bearbeiten.	0	Chavez	331	13. März 2007, 21:58 Chavez


----> Diese Seite Freunden empfehlen <------	Impressum - Besuchen Sie auch: Frontpage Forum