Bonjour,
J'ai une application sous VB6 avec des états conçus avec Crystal Report 9.2. Je voudrais pouvoir imprimer n'importe lequel de mes états ouvert par le bouton Imprimer du commondialog de windows, pas avec le bouton imprimer de crystal report. Voici le code que j'ai mis sur click du bouton imprimer
La boite de dialogue d'impression s'ouvre mais quand je lance, l'état qui est ouvert n'est pas imprimé. Que faire pour arriver à imprimer mes états avec la boite d'impression du commonDialog ?
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 Private Sub menu_imprimer_Click() On Error Resume Next If ActiveForm Is Nothing Then Exit Sub With dlgCommonDialog .DialogTitle = "Imprimer" .CancelError = True .Flags = cdlPDReturnDC + cdlPDNoPageNums If ActiveForm.rtfText.SelLength = 0 Then .Flags = .Flags + cdlPDAllPages Else .Flags = .Flags + cdlPDSelection End If .ShowPrinter If Err <> MSComDlg.cdlCancel Then ActiveForm.rtfText.SelPrint .hdc End If End With End Sub
Merci d'avance.
Partager