Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

VBA Ausdrucken


Betrifft: VBA Ausdrucken von: Hendrik
Geschrieben am: 17.07.2017 18:27:24

Hallo zusammen,

ich komme direkt zum Punkt. Mit diesem Code möchte ich nur eine bestimmte, zuvor aus einer _
TextBox ausgegebenen, Seitenzahl drucken.




Sub Drucken_aufgezeichnet()
      Dim Seite As Long
       Seite = Me.TextBox_Ergebnis.Value
       Application.PrintOut , Pages:=Seite
End Sub

Das Problem: Es druckt immer alle Seiten anstatt nur die Seite, die ich möchte.

Das Thema verfolgt mich seit Wochen schon und ich trete immer auf der Stelle.

Wäre euch für einen Lösungsvorschlag wirklich sehr dankbar!!!!

LG
Hendrik

  

Betrifft: AW: VBA Ausdrucken von: Hajo_Zi
Geschrieben am: 17.07.2017 18:42:42

Hallo Hendrik,

mein Makrorecorder sagt
.PrintOut From:=3, To:=3

GrußformelHomepage

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.


  

Betrifft: AW: VBA Ausdrucken von: RPP63
Geschrieben am: 17.07.2017 18:46:23

Moin!
Sicher, dass das überhaupt läuft?
Es gibt ein Sheet.PrintOut
https://msdn.microsoft.com/de-de/library/office/ff838253(v=office.15).aspx
und ein Workbook.PrintOut
https://msdn.microsoft.com/de-de/library/office/ff196840.aspx

Ein benannter Parameter Pages:= ist jedenfalls nicht dabei.

Gruß Ralf


  

Betrifft: AW: VBA Ausdrucken von: Gunter
Geschrieben am: 18.07.2017 11:09:13

Hallo Hendri

In dieser Datei:

https://www.herber.de/bbs/user/114933.xlsm

kannst du auf den Button "Seiten drucken" klicken, es erscheint die Abfrage, welche Seiten gedruckt werden sollen. Ich hab das mit dem pdf-Drucker probiert und da funktioniert es.

Gruss
Gunter