RE:Enívar fax por visual basic 6
hola compañero:
Vamos a ver si yo te puedo ayudar. Te voy a proporcionar un codigo para q te salga el dialogo de elegir impresora. Yo me valgo de ello para
enviar los reportes por fax a los clientes, ya q solo tengo q elegir el fax de la lista desplegable y lo envio. Espero q te sirva y ha sido un placer ayudarte. el codigo es el siguiente, adecualo a tus necesidades :D
Private Sub Imprimirbordero_Click()
Form15.CommonDialog1.Flags = cdlPDHidePrintToFile
Form15.CommonDialog1.Flags = cdlPDPageNums
Form15.CommonDialog1.CancelError = True
On Error GoTo errorimpresion:
Form15.CommonDialog1.ShowPrinter
On Error GoTo 0
crystal1.ReportFileName = "O:\camiones\Copia de informes\bordero.rpt"
crystal1.Destination = crptToWindow
crystal1.WindowLeft = 100
crystal1.WindowTop = 100
crystal1.WindowTitle = "Listado"
crystal1.RetrieveDataFiles
On Error GoTo errorimpresion:
crystal1.Action = 1
Exit Sub
errorimpresion:
If Err.Number = 32755 Then
On Error GoTo 0
Else
MsgBox "Error número : " & Err.Number & " --- " & Err.Description & " Error al generar el listado.", vbCritical, "Error"
On Error GoTo 0
End If
End Sub