Drucken der aktuellen Seite

Forumthread: Drucken der aktuellen Seite
8 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Drucken der aktuellen Seite

18.07.2006 15:07:02

Micha

Hallo zusammen, ich habe eine große Datei, die über mehrere Seite geht. Ich möchte immer nur die Seite drucken, in der eine Zelle dieser Seite markiert ist. Ist das möglich? Micha

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Drucken der aktuellen Seite

18.07.2006 15:44:37

Matthias
AW: Drucken der aktuellen Seite

18.07.2006 15:55:56

micha
AW: Drucken der aktuellen Seite

18.07.2006 16:02:46

Matthias
AW: Drucken der aktuellen Seite

18.07.2006 16:53:29

micha
AW: Alles! - o.w.T.

18.07.2006 16:56:33

Matthias
AW: Alles! - o.w.T.

18.07.2006 17:08:41

micha
AW: Alles! - o.w.T.

18.07.2006 17:14:40

Matthias
AW: Alles! - o.w.T.

18.07.2006 17:20:38

Micha

AW: Drucken der aktuellen Seite

18.07.2006 15:44:37

Matthias

Hallo Micha,
vorausgesetzt, der Ausdruck ist immer nur eine Seite breit:


Function AktiveSeite()
Dim i As Integer, z As Integer
Dim zeile As Long
zeile = ActiveCell.Row
For i = ActiveSheet.HPageBreaks.Count To 1 Step -1
z = ActiveSheet.HPageBreaks.Item(i).Location.Row
If zeile >= z Then Exit For
Next i
AktiveSeite = i + 1
End Function

Zum Testen:


Sub Test()
Dim s As Integer
s = AktiveSeite
ActiveSheet.PrintOut From:=s, To:=s
End Sub

Gruß Matthias

AW: Drucken der aktuellen Seite

18.07.2006 15:55:56

micha

Hallo Matthias, muß ich das jetzt in die Makros kopieren oder wie bring ich das ganze in Gang. Micha

AW: Drucken der aktuellen Seite

18.07.2006 16:02:46

Matthias

Hallo Micha,
ja, kopiere den Code in ein Modul:
Alt+F11, Menü Einfügen, Modul, den Code da reinkopieren.
Das Makro, welches du starten musst, ist "Test". Es verwendet die Funktion "AktiveSeite".
Viel Erfolg,
Matthias

AW: Drucken der aktuellen Seite

18.07.2006 16:53:29

micha

Hallo Mathias, Was muß in das Modul? nur


Sub Test() bis End 

Sub oder auch die Function?

AW: Alles! - o.w.T.

18.07.2006 16:56:33

Matthias

:-)

AW: Alles! - o.w.T.

18.07.2006 17:08:41

micha

Muß dich nochmal belästigen, das drucken funktioniert jetzt aber nur wenn die seiten in der vertikalen sind. Er druckt nicht die Seiten die auch horizontal stehen. mach ich noch was falsch. Micha

AW: Alles! - o.w.T.

18.07.2006 17:14:40

Matthias

Hallo Micha,
nix falsch, ich schrieb ja bereits:
vorausgesetzt, der Ausdruck ist immer nur eine Seite breit:
Bei mehrspaltigen Seiten muss man noch die Anzahl der vertikalen Seitenumbrüche berücksichtigen. Ist mir im Moment zu aufwendig...
Gruß Matthias

AW: Alles! - o.w.T.

18.07.2006 17:20:38

Micha

Hallo Mathias, vielen Dank für deine Hilfe. Gruß Micha