Clevere Lösung Druck

[tep]

Hallo,

freue mich auf euch und eure Tipps!

Folgendes Problem:
Tabelle1 hat mehrere Spalten und Zeilen mit Infos

Ich möchte über ein Userform eine Abfrage erhalten welche Seiten ausgedruckt werden sollen.
Kann ich es bewerkstelligen mit eurer Hilfe?

Lieben Dank
Nora

[WillWissen]

Hi Nora,

mal 'ne blöde Frage.

Wieso benutzt du nicht einfach STRG+P. Mit dieser Kombination gelangst du sofort ins Druckmenü und kannst ganz einfach deine zu druckenden Seiten eingeben. Ich denke, diese Eingabe wird dir auch ein Makro nicht abnehmen

[tep]

Hallo Günter,

neeee

Ich möchte über ein Userform daruaf zugreifen, um die Seiten Auszuwählen oder abzuwählen (Checkboxes)

[Kuwer]

Hi Günter,

ich möchte z.B. die Seiten 1 und 3 drucken. Wie/wo kann ich das genau einstellen?

Gruß Uwe

[Kuwer]

Hallo Nora,

was genau verstehst Du unter Seiten?
Sind die Bereiche vorgegeben oder durch feste Seitenumbrüche oder ... ?

Gruß Uwe

[tep]

Hallo Nora,

was genau verstehst Du unter Seiten?
Sind die Bereiche vorgegeben oder durch feste Seitenumbrüche oder ... ?

Gruß Uwe

Feste Seitenumbrüche

[WillWissen]

Hi Günter,

ich möchte z.B. die Seiten 1 und 3 drucken. Wie/wo kann ich das genau einstellen?

Gruß Uwe

Hi Uwe,

ich habe das wohl mit dem Druckmenü beim Word in Verbindung gebracht und beim Excel nicht mehr überprüft. Sorry :( 

Beim Word funktioniert das so:

[
Bild bitte so als Datei hochladen: Klick mich!
]

[Kuwer]

Hallo Nora,

erstelle eine UserForm und füge in diese eine ListBox und einen CommandButton ein.

Das ist der Code der UF:

Code:

Option Explicit

Dim i As Long
Dim oWs As Worksheet
 
Private Sub CommandButton1_Click()
 Me.Hide
 With ListBox1
   For i = 0 To .ListCount - 1
     If .Selected(i) Then
       oWs.PrintOut i + 1, , , True
     End If
   Next i
 End With
 Me.Show
End Sub

Private Sub ListBox1_Change()
 CommandButton1.Visible = False
 With ListBox1
   For i = 0 To .ListCount - 1
     If .Selected(i) Then
       CommandButton1.Visible = True
       Exit For
     End If
   Next i
 End With
End Sub

Private Sub UserForm_Initialize()
 Set oWs = ActiveSheet
 CommandButton1.Visible = False
 With ListBox1
   .MultiSelect = fmMultiSelectMulti
   .ListStyle = fmListStyleOption
   For i = 1 To oWs.PageSetup.Pages.Count
     .AddItem "Seite " & i
   Next i
 End With
End Sub

Das True in der Zeile

oWs.PrintOut i + 1, , , True

bewirkt, dass jeweils zuerst eine Vorschau angezeigt wird.
False an dieser Stelle unterdrückt diese Vorschau.

Gruß Uwe

[tep]

Hallo Uwe,

vielen Dank, das ist ungefähr das, was ich mir vorgestelt habe.
Ein Problem ist, dass wenn ich mehrere Seiten auswähle (Z.B. Seite 2 und Seite 12) ich alle Seiten danach angezeigt bekomme.

Ist es mögich, nur die Seiten auszudrucken, die markeirt sind?

Ansonsten vielen Dank

[Kuwer]

Ist es mögich, nur die Seiten auszudrucken, die markeirt sind?

Genau das macht mein Code (bei mir).
Ansonsten poste bitte Deine Datei.

Gruß Uwe