[CR][ActiveFax] Envoyer un fax via ActiveFax dans une application VB.NET

[Amine57160]

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 :

Code :

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

  ...

J'aimerai savoir si vous auriez un exemple .
Merci par avance de m'aider