Visual Basic - Ayuda con fax y printform

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