Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drucken

Drucken
12.11.2003 14:59:30
Melli
Hallo,

ich habe ein Makro mit dem Makrorechner erstellt, dass mir per Knopfdruck in der Symbolleiste das jeweilige Excel-Sheet

1. ins A5 Format bringt
2. auf 65% der Originalgröße verkleinert
3. anschließend ausdruckt

Das Problem ist nur, dass das Makro beim Drucken nicht erkennt, dass die letzte Zeile bereits gedruckt ist und weiter Papier in den Drucker einzieht.

Wie muss also der Code heißen, der sagt:

Höre auf zu drucken, wenn die letzte Zeile auf Papier gebracht wurde.

Über eine Antwort würde ich mich freuen.

Danke im Voraus!

Gruß

Armin


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken
12.11.2003 15:10:29
Michael Scheffler
Hi,

da musst Du einen Druckbereich definieren. Sonst wird natürlich alles gedruckt,

Gruß

Micha
AW: Drucken
12.11.2003 15:16:27
Andi_H
Hi Armin,
du mußt den Druckbereich festlegen.

Diesen Code hat WernerB gestern gepostet zum Thema Druckbereich festlegen.
Der Code liest die letzte Zeile in Spalte b aus und setzt den Druckbereich.


Sub Druckbereich()
Dim laR As Long
laR = Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & laR
End Sub


gruß

andi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige