Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

UserForm als PDF o. Fax ausdrucken

Forumthread: UserForm als PDF o. Fax ausdrucken

UserForm als PDF o. Fax ausdrucken
24.06.2008 08:14:14
otto
Guten Morgen,
ich habe eine UF die ich ausdrucke. Des öfteren wäre es aber notwendig, dass ich sie als Fax verschicken könnte. Wie kann ich mir das einscannen und faxen ersparen?
Gibt es eine Möglichkeit den Standarddrucker in der Systemsteuerung per VBA Code umzustellen und nach dem Ausdruck wieder zurückzustellen, so dass man trotzdem mit Me.Printform drucken kann?
Gruß
otto

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: UserForm als PDF o. Fax ausdrucken
24.06.2008 14:27:08
otto
Hi,
danke für den Tip, nützt mir aber so nichts.
Da ich mit .Printform ausdrucke, wird immer der Standarddrucker aus der Systemsteuerung genommen. Wenn ich mit Application.ActivePrinter = ... einen anderen Drucker festlege so hat das für den Ausdruck mit .Printform keinen Sinn, da der Drucker in der Systemsteuerung nicht umgestellt wird.
Per Makro soll also die gleiche Aktion durchgeführt werden als würde ich in der Systemsteuerung den PDF Drucker mit rechts anklicken und auf "als Standard definieren" klicken.
Gruß
otto
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

UserForm als PDF oder Fax ausdrucken


Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Ein neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (deinWorkbook.xlsx)" und wähle "Einfügen" > "Modul".

  3. Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub UserFormDrucken()
       Dim DruckerName As String
       DruckerName = "DeinPDFDrucker" ' Ersetze dies mit dem Namen deines PDF-Druckers
    
       ' Standarddrucker speichern
       Dim StandardDrucker As String
       StandardDrucker = Application.ActivePrinter
    
       ' PDF-Drucker als Standard festlegen
       Application.ActivePrinter = DruckerName
    
       ' UserForm drucken
       Me.PrintForm
    
       ' Zurück zum Standarddrucker
       Application.ActivePrinter = StandardDrucker
    End Sub
  4. UserForm anpassen: Stelle sicher, dass deine UserForm die gewünschte Gestaltung hat, bevor du sie ausdruckst.

  5. Makro ausführen: Führe das Makro aus, um die UserForm als PDF auszudrucken.


Häufige Fehler und Lösungen

  • Fehler: "Drucker nicht gefunden"
    Lösung: Überprüfe den Namen des PDF-Druckers. Du kannst den Namen in der Systemsteuerung unter "Geräte und Drucker" finden.

  • Fehler: UserForm wird nicht richtig gedruckt
    Lösung: Stelle sicher, dass die UserForm vollständig sichtbar ist und keine Elemente außerhalb des sichtbaren Bereichs liegen.


Alternative Methoden

Eine alternative Methode, um eine UserForm als PDF oder Fax zu drucken, besteht darin, die UserForm zuerst in ein Bild zu konvertieren und dann das Bild als PDF zu speichern. Hierfür kannst du Bibliotheken wie ImageMagick verwenden. Diese Methode ist jedoch etwas komplexer und erfordert zusätzliche Software.


Praktische Beispiele

Hier ein einfaches Beispiel, wie du eine UserForm drucken kannst:

Sub DruckeUserForm()
    With UserForm1
        .Show
        .PrintForm
    End With
End Sub

Wenn du die UserForm als Fax versenden möchtest, kannst du den PDF-Drucker und die Fax-Software kombinieren. Viele Fax-Programme unterstützen das direkte Drucken von PDF-Dateien.


Tipps für Profis

  • Drucker automatisieren: Du kannst den Prozess weiter automatisieren, indem du den PDF-Drucker in deinen VBA-Code einfügst, sodass er immer die aktuelle UserForm druckt, ohne dass du manuell eingreifen musst.
  • PDF größer ausdrucken: Du kannst die DPI-Settings deines PDF-Druckers anpassen, um die Qualität des Ausdrucks zu verbessern, was oft bei der Erstellung von komplexen Layouts wie DIN 988 Datenblättern wichtig ist.

FAQ: Häufige Fragen

1. Wie kann ich die UserForm als Fax versenden?
Um eine UserForm als Fax zu versenden, kannst du zuerst die UserForm als PDF drucken und dann das PDF über deine Fax-Software versenden. Viele Programme bieten die Möglichkeit, direkt eine PDF-Datei zu faxen.

2. Was benötige ich, um PDFs zu drucken?
Du benötigst einen installierten PDF-Drucker, wie zum Beispiel Adobe PDF oder einen kostenlosen PDF-Drucker wie CutePDF. Diese Drucker ermöglichen es dir, Dokumente als PDF zu speichern.

3. Kann ich das Layout der UserForm anpassen, bevor ich drucke?
Ja, du kannst das Layout der UserForm in den Eigenschaften im VBA-Editor anpassen. Achte darauf, dass alle erforderlichen Informationen gut sichtbar sind, bevor du druckst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige