vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Verschiedenes / Sonstiges   |   VB-Versionen: VB4, VB5, VB608.02.02
Fritz!Fax 2.0 - autom. Rufnummer-Übermittlung

Ein einfacher Eintrag in die Registry und FritzFax weiss welche Rufnummer gewählt werden soll.

Autor:   Jürgen SchenckBewertung:     [ Jetzt bewerten ]Views:  25.842 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Die AVM Fritz!Card ist eine der weit verbreitesten ISDN-Karten. Mit ihr bekommt man auch allerhand nützlicher Programme, wie z.B. Fritz!Fax, welches einen Fax-Drucker instaliert, über den man den "normalen" Ausdruck dann direkt als Fax versenden kann.

Jedesmal, wenn man nun einen Dokument faxen will, erscheint dann Dialog zur Eingabe der Empfänger-Faxnummer. Wenn Sie aus Ihrem VB/VBA-Proggi nun den Ausdruck verfaxen wollen, können Sie ab sofort die Empfänger-Faxnummer gleich mitangeben.

Wie? Sie werden schon sehen

Alles was wir benötigen sind die Registry-Funktionen aus folgendem Tipp:
 Registry im Griff

Man muss nämlich wissen, dass die Fritz!Fax-Software immer die zuletzt gewählte Faxnummer in der Registry speichert - und zwar hier: HKEY_CURRENT_USER\Software\AVM\FRITZ! 2.0\Fax - Schlüssel Rufnummer

Was liegt also näher, als vor dem Aktivieren von Fritz!Fax die Empfänger-Faxnummer hier einzutragen?

Und so wird's gemacht:
Nachdem Sie den Code aus oben genannten "Registry-Tipp" in Ihr Projekt übernommen haben, brauchen Sie noch folgende Anweisungen:

' Rufnummer in die Registry speichern
fStringSpeichern HKEY_CURRENT_USER, _
  "Software\AVM\FRITZ! 2.0\Fax", _
  "Rufnummer", txtFaxNummer.Text
' Test
Dim oldPrinter As String
 
If SetPrinter("FRITZfax Drucker") Then
  Printer.Print "Fax an " & txtFaxNummer.Text
  Printer.EndDoc
  SetPrinter oldPrinter
Else
  MsgBox "Kein Fritz!Fax installiert!"
End If
' Festlegen des Druckers für den Ausdruck
' Erwartet wird als Parameter die im System verwendete
' Bezeichnung des Druckers
' 
' Rückgabewert: True  = OK
'              False = Drucker nicht gefunden
Private Function SetPrinter(ByVal prnName As String) _
  As Boolean
 
  Dim Result As Boolean
  Dim x As Integer
 
  Result = False
  If Printers.Count > 0 Then
    For x = 0 To Printers.Count - 1
      If Printers(x).DeviceName = prnName Then
        Set Printer = Printers(x)
        Result = True
        Exit For
      End If
    Next x
  End If
  SetPrinter = Result
End Function

Dieser Tipp wurde bereits 25.842 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Aktuelle Diskussion anzeigen (1 Beitrag)

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel