Office: Druck auf DIN A4 anpassen

Hallo Zusammen ich habe folgenden code

Dieser bewirkt, dass zuerst eine Drucker Auswahl und dann eine Druckvorschau erscheint. Dies klappt auch.

Doch sollte der Code die auf dem Tabellenblatt vorhandenen Daten jeweils so vergrössern oder verkleinern, dass stets ein A4 Druck ausgegeben wird. Also die Tabelle so vergrössert oder verkleinert wird, dass bei ausdrucken die A4 Seite gefüllt ist.

Geht das irgendwie? Steh auf dem Schlauch und komme nicht dahinter.

Danke schon vorab.

Lg Pädu

:)

 

Ah und weiter wäre es wünschenwert wenn "nur" der Bereich welcher auf dem Bildschirm sichtbar ist gedruckt wird und nicht die ganze Tabelle.

Sorry habe ich vergessen...

 

so noch ein bisschen versucht...

Habe nun diesen Code

Nur ist das Problem, dass dieser Code mir jeweils die ganze Tabelle anzeigt/ausdruckt. Doch möchte ich, dass jeweils von Range(cloumns("A"),columns("B")) nur die auf dem Bildschirm sichtbaren Zeilen in der PreView und im Ausdruck erscheinen und nicht die ganze Tabelle. Kann man das irgendwie so gestalten, dass jeweils die aktuelle Bildschirm Ansicht (nur spalte a und b) gedruckt werden?

komme nicht mehr weiter.

danke euch allen
LG Pädu

 

Hallo Pädu,

ersetze die Zeile
ActiveSheet.PageSetup.PrintArea = Range(columns("A"), columns("B")).Address

durch
Code:

Bitte nutze Code-Tags (Button links neben den von Dir verwendeten Zitat-Tags), damit die Einzüge sichtbar bleiben und der Code nicht "am Rand klebt".

Grüße
EarlFred

 

Hallo EarlFred

Danke läuft super!!!

Ups... Habe wohl versehentlich das falsch Tag genommen und es nicht bemerkt. Danke für den Hinweis.

Danke für die Hilfe