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

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