Visual Basic - Ayuda con fax y printform

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con fax y printform

Publicado por Hector (23 intervenciones) el 10/11/2007 16:44:23
Saludos, alguien que me ayude con un codigo para enviar fax automaticamente, el problema que tengo es porque necesito enviar por el fax un form1.printform

el codigo que tengo es el siguiente, este envia un fax pero pero no envia el form, espero que alguien me pueda colaborar.

Private Sub Command2_Click()
Form1.PrintForm
RetVal = Shell("C:\WINDOWS\system32\FxsSend.exe \\server\Fax")
AppActivate RetVal
SendKeys "{Enter}", True
SendKeys "hector", True
SendKeys "{Tab}", True
SendKeys "{Tab}", True
SendKeys "9,2188231", True
SendKeys "%{t}", True
SendKeys "{Tab}", True
SendKeys "{Enter}", True
SendKeys "Fax", True
SendKeys "{Enter}", True
SendKeys "{Enter}", True
'SendKeys "{Enter}", False
'SendKeys "%{F4}", True
End Sub

Private Sub Form_Load()
For Each prnPrinter In Printers
If prnPrinter.DeviceName = "\\server\Fax" Then
Set Printer = prnPrinter
Exit For
End If
Next
End Sub

Alguien que me pueda colaborar,

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder