Office: Druckbereich per Email versenden

Hallo,

ich habe ein Bestellformular in welchem ein Druckbereich definiert wurde.

Jetzt möchte ich das der Benutzer diesen Druckbereich per Button ausdrucken
oder per Emal versenden kann. Wie kann ich das in VBA realisieren?

Und gibt es eine Möglichkeit das der Empfänger des zuvor versendeten Bestellformulars ebenfall über Button dieses dann ausdrucken kann?

Danke!!

:)

 

Moin, Tschubi,

ein definierter Druckbereich sollte eigentlich immer durch den Befehl Printout ausgdruckt werden können - egal wo (wenn die Zeile im Makro oder hinter der Schaltfläche hinterlegt ist).

Zum Mailversand: Als Teil der Mail (also in der Mail direkt) oder als Mappe im Anhang? Alle User arbeiten mit Excel2003?

 

Moin jinx,

ich weiß nicht so recht was vielleicht besser wäre. Ziel ist es, dass der Unterschriftsberechtigte das Bestellformular entweder in ausgedruckter Form bekommt oder per Email und dann selbst ausdruckt und unterschreibt.

Wie gesagt das ausdrucken sollte dann wenn möglich über einen Button erfolgen. Was wäre deiner meinung nach die Sinnvollste Lösung?

Danke

 

Moin, Tschubi,

lässt sich am Einfachsten über den Ausdruck in Outlook erklären, der meines Wissens direkt nur mit Angabe des Users im Kopf zu gewährleisten ist. Das Problem bei einer Schaltfläche in der Mappe im Anhang ist der Status der Makrosicherheit und der Zugriff auf das VBA-Projekt in Excel. Von daher würde ich eher zu einem Einfügen in die Mail als Teil derselben tendieren.

 

\@jinx

klingt logisch und wie realisiere ich das am besten?
Und wie ist das mit der Formatierung?

Danke!

 

Moin, Tschubi,

da ich Plain-Text für Mails bevorzuge, sieht´s da mit der Formatierung ziemlich trübe aus... *wink.gif*. Bei Verwendung von HTML sollten Dir die Ausprägungen aus dem Web-Bereich zur Verfügung stehen. Und als Ansatz dazu sollte es eigentlich Beispiele im Archiv geben...

 

wenn das mit der Formatierung nicht so recht funktioniert dann würde doch lieber das Formular als Anhang versenden wollen.
Das habe ich wie folgt probiert:

Code:

Aber das Problem ist, dass die Splatenbreiten dann nicht mehr stimmen und somit das Format nicht mehr passt.
Gibt es dafür Lösungsmöglichkeiten?

Danke!

 

Hallo,

das Problem mit der Formatierung besteht immer noch.
Ich habe jetzt zwar die Spalten kopiert welche anschließend in das neu Sheet wieder eingefügt werden, somit stimmen zumindest die Spaltenbreiten, aber das orginal Formular hat keine Standard-Werte in der Seiteneinstellung.

Das heißt die Seitenränder sind im orginal geringer und somit passt das Layout
in der Coppy dann nicht mehr welche ja verschickt und anschließend ausgedruckt werden soll.

Kann man die Seiteneinstellungen ebenfalls mit kopieren und wieder einfügen ohne das man unmengen an VBA-Code produziert?

Und wie kopiere ich die Kopf- und Fusszeile mit?

Dank!

 

Moin, Tschubi,

darf ich mal nachfragen, warum Du nicht das Originalblatt kopierst und alles löscht, was Dich darin stört? Das scheint mir der leichtere Weg zu sein...

 

Hi,

ich bin für jede Möglichkeit offen.

kann ich dann mit ActiveSheet.Copy alles kopieren, also auch diese Seitenränder?

Danke!

 

Moin, Tschubi,

VBA erlernt man nicht, indem man immer nur mit einer Rückversicherung arbeitet - manchmal gehört der Selbstversuch dazu. *wink.gif* Bei mir unter Excel97 wird der Seitenrand kopiert, ja...

 

Habe es inzwischen mit ActiveSheet.Copy gelöst und es funktioniert.
Danke