Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

FRITZfax

FRITZfax
15.09.2004 18:05:27
Werner
Hallo Spezialisten,
Wie ich den Fax aufrufe weiss ich nun endlich!
Ist es auch möglich, eine Telefonnummer aus einer Zelle direkt im Faxfenster einzutragen?
Gruss Werner
PS. Kann es nicht Vorort Testen, da ich hier keinen Fax angeschlossen habe!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
eigene Lösung
16.09.2004 16:37:03
Werner
Ich habe es so gelöst:

Sub FaxDrucken()
'Benötigt Verweis auf: _
"Microsoft Forms 2.0 Object Library"
Dim ClipAbLage As DataObject
Dim Txt$
Dim sPrinter As String
    sPrinter = Application.ActivePrinter
                                        'FaxDrucker anpassen
        Application.ActivePrinter = "FRITZfax Drucker auf Ne01:"
        
Set ClipAbLage = New DataObject
    Txt = Range("A1").Value
        ClipAbLage.SetText Txt
            ClipAbLage.PutInClipboard
            
Worksheets("Tabelle1").PrintOut
    If Application.Wait(Now + TimeValue("0:00:02")) _
    Then SendKeys "(^){v}", True
    Application.ActivePrinter = sPrinter
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige