Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
Drucken der Seite, in welcher sich der Cursor befindet
zurück: Variablenname als String weiter: Anzeigefehler in Excel 2007 und 2003 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     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 - 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
Neues Thema eröffnen   Neue Antwort erstellen 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




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

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