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.877 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. |
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. Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |