Discussion :

[auguste19]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[auguste19]

J'ai trouvé depuis une référence donnée sur ce site et qui résout mon problème d'impression, (et bien d'autres) :

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q146/0/22.asp&NoWebContent=1


Il n'en reste pas moins que je ne comprends pas la raison d'être de la ligne vide dans l'exemple donné par Microsoft, qui génère une page blanche avant l'impression de la bonne page.