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: 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: ' 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.843 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||||||
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. |