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 :: ---> 4. September: Office-Treffen Rhein-Ruhr <-

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, 23: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 VBA (Makros): Button fürs markieren und drucken	9	letschkam	217	08. Apr 2010, 23:46 letschkam
	Excel VBA (Makros): EXCEL Makro Drucken Seite 1 bis 1 Abfrage Anzahl Kopien	7	windgardson	11863	08. Apr 2010, 12:57 Gast_10_04_08
	Excel VBA (Makros): PDF aus Word Drucken --> Wo ist der Fehler?	3	Wolfram84	217	04. März 2010, 00:19 bst
	Excel VBA (Makros): Daten eingeben,kopieren und Drucken aber wie?	2	metaxa	111	11. Jan 2010, 10:07 metaxa
	Excel VBA (Makros): Bestimmte Tabellenblätter auswählen und drucken	3	p_u_m_a	213	16. Nov 2009, 16:34 gast (dave)
	Excel VBA (Makros): Excel-Dokument in PDF "drucken"	10	Gast	322	26. Aug 2009, 12:07 xlDominik
	Excel Hilfe: Drucken der akutellen Ansicht	7	LaDDe	104	13. Aug 2009, 15:29 LaDDe
	Excel VBA (Makros): Quellcode farbig drucken	5	Steffi1984	415	23. Jun 2009, 19:37 ExcelTüftler
	Excel Formate: zeile 1 bei ausdruck von z.b. seite 4 mit ausdrucken	2	Gesko	203	17. Jun 2009, 13:33 Gesko
	Excel VBA (Makros): Mehrere Blätter drucken und Zelle hochzählen	6	P!r4t	821	14. Mai 2009, 14:16 P!r4t
	Excel VBA (Makros): Blattkopf in allen Blättern drucken	2	JR2007	413	30. Apr 2009, 18:14 JR2007
	Excel VBA (Makros): Userform drucken/ Namensfunktion/ Zellenposition	2	WUT4	308	24. Apr 2009, 10:11 WUT4


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