for MCRIDER :))
Posted on 2000-02-24
Hi mate it's Chaz again :))
Do u remember when i asked you how to make always on top??
Cool, the problem i have is after sending my document to the fax it doesn't make the form lose focus....ummmm here's the code to help me explain what i mean:
Dim ir As Long
ir = SetTopMostWindow(Form1.hwnd, True)
On Error GoTo errorhandler
Dim x As Printer
For Each x In Printers
If x.DeviceName = "ElectraSoft Print to Fax" Then
Set Printer = x
formprint.SendToPrinter Form1, Landscape
Exit Sub 'THIS LINE WAS MISSING IN YOUR CODE
Dim pq As Long
pq = SetTopMostWindow(Form1.hwnd, False)
MsgBox "There was an error sending the fax!", vbCritical, "Error!"
I hope this helps to eplain what i mean....