Imprimer depuis une RichTextBox
Bonjour,
Je cherche un imprimer le contenu d'une RichTextBox avec le code suivant donné par l'aide de VB6. Or j'obtiens une page blanche en plus de la page imprimée à cause de l'instruction Printer.Print "".
Est-elle indispensable ? Cela semble fonctionner sans cela sur mon imprimante, mais sur une autre ?
Code:
1 2 3 4 5 6 7 8 9 10 11
| With CommonDialog1
.Flags = cdlPDReturnDC + cdlPDNoPageNums
If rtfText.SelLength = 0 Then
.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
.Flags = CommonDialog1.Flags + cdlPDSelection
End If
.ShowPrinter
Printer.Print ""
rtfText.SelPrint .hdc
End With |