Gutschein

[schauan]

Hallöchen,

hast Du Dir die Sache mit dem Druckbereich mal angeschaut?

z.B.
Daten-Uebertragung-mit-Dialogfenster-und-Abfrage

Dynamischer-Druckbereich-mit-Leerzeilen

[ItsME]

Hallo,

sorry für die späte Antwort.. hatte zwischenzeitlich Urlaub ;)

alsooo... hab mir das durchgelesen, hilft mir aber erstmal soweit nicht, da es dort in erster Linie darum geht, für den Druck einen Druckbereich zu wählen.

Das ist aber tatsächlich bei mir gar nicht das Problem... :(

Es wird genau das gedruckt, was ich möchte, aber eben auf unserem Standard-Drucker...

Ich möchte aber anstatt des sofortigen Druckes den Druckdialog sehen, in welchem ich den Drucker wählen kann, damit ich ggf. auch einen pdf-Drucker
auswählen kann.

Mehr ist es eigentlich nicht... statt Druck nur Druckdialog :(

Gruß

Marco

[schauan]

Hallöchen,

ach so. Dann das?

Application.Dialogs(xlDialogPrinterSetup).Show

[ItsME]

Hi,

sorry... viele offene Projekte :(

Ich habe nun folgendes versucht:

Code:

Private Sub CommandButton1_Click()
If ActiveCell.Column = 1 Then
Tabelle2.Range("A52").NumberFormat = "0"
Tabelle2.Range("A52") = ActiveCell
Application.Dialogs(xlDialogPrinterSetup).Show
End If
End Sub

aber das funktioniert nicht.. da passiert gar nix  :22:

[ralf_b]

dann ist die Activecell nicht in Spalte 1

[ItsME]

Hi,

dann ist die Activecell nicht in Spalte 1

ähm...


welches ist die "Activecell" ?

Die erste Zelle auf Tab1 oder auf Tab2?

oh wie penlich :(

[ralf_b]

die Activecell ist die Aktive Zelle auf dem Aktiven Blatt. 

es gibt immer eine aktive Zelle. wenn du im Blatt irgendwohin klickst ändert sich die aktive Zelle entsprechend.
Solche Fragen könntest du locker mit eigener Recherche klären, anstatt in Foren deswegen rumzufragen.

[RPP63]

Muss man doch verstehen!
Erst 3 Wochen Urlaub, später dann 2 Monate lang zu viele "Projekte"!

[ItsME]

Hallo,

und das hilft mir nun wie?

Also nun eine direkte Frage:

Wie muss das Script aussehen, wenn der Druck-Button das Tabellenblatt mit dem Namen "Gutschein-fur-Druck"
ausdrucken soll, aber vor dem Druck der Druckdialog angezeigt werden muss?

Muss man doch verstehen!

Erst 3 Wochen Urlaub, später dann 2 Monate lang zu viele "Projekte"!

Beurteile nicht das Leben anderer, bitte.

[ralf_b]

Code:

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

Worksheets("Gutschein-fur-Druck").printout
End Sub

 
Application.Dialogs(xlDialogPrint).Show
Application.Dialogs(xlDialogPrinterSetup).Show
Worksheets("Gutschein-fur-Druck").PrintPreview
Application.Dialogs(xlDialogPrintPreview).Show
Worksheets("Gutschein-fur-Druck").PrintOut


du kannst auch damit rumspielen und dir die Dialogbeschreibung in der Officehilfe suchen. 
Darauf bist du bestimmt selber gekommen. 
Deine vielen Projekte haben dich verleitet lieber andere Menschen dafür einzuspannen.  
Und dann wären wir beim Thema "das Leben anderer Menschen".