Microsoft Excel

Herbers Excel/VBA-Archiv

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

Ausdruck betimmter Spalten | Herbers Excel-Forum


Betrifft: Ausdruck betimmter Spalten von: Hans
Geschrieben am: 01.02.2010 09:47:10

Servus Miteinander,

der user kann in einer Tabelle ganze Zeile markieren und soll dann über einen Button die markierten Werte ausdrucken.

Frage:
es soll vom markierten Bereich aber nur bis Spalte Y gedruckt werden. Besser wäre es noch, wenn in einem erstem Schritt die Markierung verändert werden würde.

Also z.B. von.
Rows("9:33").Select
auf
Range("A9:Y33").Select

Danke für Eure Hilfe.

Hans

  

Betrifft: AW: Ausdruck betimmter Spalten von: Renee
Geschrieben am: 01.02.2010 11:17:51

Hi Hans,

Vielleicht irgendwie so:

Private Sub CommandButton1_Click()
    Selection.Resize(Selection.Rows.Count, 25).PrintOut
End Sub
GreetZ Renée


  

Betrifft: AW: Ausdruck betimmter Spalten von: Hans
Geschrieben am: 01.02.2010 11:19:51

ja genau so!

ich danke dir!


  

Betrifft: AW: Ausdruck betimmter Spalten von: Reinhard
Geschrieben am: 01.02.2010 11:21:02

Hallo Hans,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Ber As Range
Cancel = True
Set Ber = Intersect(Selection, Range("A:Y"))
If Ber Is Nothing Then Exit Sub
ActiveSheet.PageSetup.PrintArea = Ber.Address
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
End Sub

Gruß
Reinhard


Beiträge aus den Excel-Beispielen zum Thema "Ausdruck betimmter Spalten"