Drucken bestimmte Seiten

• Drucken bestimmte Seiten von josch vom 17.02.2005 17:25:02
• AW: Drucken bestimmte Seiten - von Thom@sCH am 17.02.2005 17:42:06
• AW: Drucken bestimmte Seiten - von Reinhold am 17.02.2005 17:42:29
• AW: Drucken bestimmte Seiten - von Josch am 18.02.2005 08:46:02
  • AW: Drucken bestimmte Seiten - von Thom@sCH am 18.02.2005 09:01:50
    • AW: Drucken bestimmte Seiten - von Josch am 18.02.2005 10:24:00
      • AW: Drucken bestimmte Seiten - von Josch am 18.02.2005 10:32:02

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?

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

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

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

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

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.

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!

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