Microsoft Excel

Herbers Excel/VBA-Archiv

FRITZfax

Betrifft: FRITZfax von: Werner
Geschrieben am: 15.09.2004 18:05:27

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!

  


Betrifft: eigene Lösung von: Werner
Geschrieben am: 16.09.2004 16:37:03

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