Drucken bestimmte Seiten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Drucken bestimmte Seiten von: josch
Geschrieben am: 17.02.2005 17:25:02

Hallo,

wie ich den Drucken-Dialog ansteuern kann weiß ich.
Ich sollte allerdings das Ganze so mit VBA automatisieren, dass wenn eine bestimmte Zelle (bzw. in meiner Datei einen Namen in einer Zelle) markiert ist, auch nur eine bestimmte Seite gedruckt wird.
Will also das manuelle eingeben von... bis... Seite umgehen.
Weiß jemand Rat?

Bild


Betrifft: AW: Drucken bestimmte Seiten von: Thom@sCH
Geschrieben am: 17.02.2005 17:42:06

Hallo Josch

Schau dir mal das an:


Sub Drucken()
    intFrom = InputBox("Druckbereich eingeben:" + Chr(13) + Chr(13) + "Seite von:", "Druckbereich")
    intTo = InputBox("Druckbereich eingeben:" + Chr(13) + Chr(13) + "Seite bis:", "Druckbereich")
    intCopies = InputBox("Druckbereich eingeben:" + Chr(13) + Chr(13) + "Anzahl Exemplare:    (mind. 1)", "NuPro - Nutzungsprogramm", "1")
    
    ActiveSheet.PrintOut From:=intFrom, _
        To:=intTo, Copies:=intCopies
End Sub


Gruss Thomas


Bild


Betrifft: AW: Drucken bestimmte Seiten von: Reinhold
Geschrieben am: 17.02.2005 17:42:29

hallo Josch,

beim VBA- Druckbefehl .printout kannst du die zu druckenden Seiten angeben.

.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

Grüße Reinhold


Bild


Betrifft: AW: Drucken bestimmte Seiten von: Josch
Geschrieben am: 18.02.2005 08:46:02

Danke! die Antwort von Thom@sCH hat mir geholfen.
Muss jetzt nur noch, da ich ja nicht unbedingt ne Seíte eingeben will sondern nen Namen, den eingegebenen Namen in Seiten umwandeln... Thanks


Bild


Betrifft: AW: Drucken bestimmte Seiten von: Thom@sCH
Geschrieben am: 18.02.2005 09:01:50

Hallo Josch

Sollte ja nicht ein grosses Problem sein:


Sub Drucken()
    intFrom = Worksheets("Tabelle1").Range("A1").Value
    intTo = Worksheets("Tabelle1").Range("A2").Value
    intCopies = 1
    
    ActiveSheet.PrintOut From:=intFrom, _
        To:=intTo, Copies:=intCopies
End Sub


Gruss Thomas


Bild


Betrifft: AW: Drucken bestimmte Seiten von: Josch
Geschrieben am: 18.02.2005 10:24:00

so in der Art hab ich es gemacht. ist überhaupt kein Problem.

Jetzt sollte ich nur noch wissen, wie ich einen bestimmten Drucker, hier PDF-Drucker zum Druck festlegen kann.


Bild


Betrifft: AW: Drucken bestimmte Seiten von: Josch
Geschrieben am: 18.02.2005 10:32:02

Hat sich auch erledigt. Geht ja auch mit diesem Befehl!
Danke!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Drucken bestimmte Seiten"