Bonjour a tous ,
Alors voila je me trouve aujourd'hui devant le problème suivant :
Je n'arrive pas a envoyer un fax via ActiveFax dans une application VB.NET.
VOICI un extrait de mon code :
J'aimerai savoir si vous auriez un exemple .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 ... ElseIf typerelance = "Fax" Then If zp.Length > 0 Then If zp(0)("Relancepdf").ToString <> "" Then Dim myExportOpts As New CrystalDecisions.Shared.ExportOptions Dim myExportOpts2 As New CrystalDecisions.Shared.ExportOptions myExportOpts.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat myExportOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile myExportOpts2.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat myExportOpts2.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile Dim diskOpt As New CrystalDecisions.Shared.DiskFileDestinationOptions() Dim diskOpt2 As New CrystalDecisions.Shared.DiskFileDestinationOptions() diskOpt.DiskFileName = addressepdf1 myExportOpts.ExportDestinationOptions = diskOpt If My.Settings.Activefax Then On Error GoTo suite 'on envoie l'impression vers l'imprimante Fax LettreRel.PrintOptions.PrinterName = My.Settings.ActiveFaxName'=ActiveFax LettreRel.PrintToPrinter(1, False, 0, 0) GoTo pasprob suite: MsgBox("Le nom de l'imprimante n'est pas defini." & My.Settings.ActiveFaxName) pasprob: End If ...
Merci par avance de m'aider
Partager