Richtextbox - печать

[angelina]

Через поиск просмотрела все темы, но нужного мне так и не нашла
Richtextbox.selprint
требует hdc и vstartdoc
что это?
и как можно оргпанизовать печать через commondialog???
заранее огромное спасибо!!!!

[hCORe]

Код: Выделить всё

On Error GoTo ErrTrap
    dlgDialog.CancelError = True
    dlgDialog.ShowPrinter
    rtfRichText.SelPrint dlgDialog.hDC
ErrTrap:
    Err.Clear
    dlgDialog.CancelError = False

[alibek]

Можно и проще, сразу Printer.hDC

[angelina]

ничего не работает
все это я уже вчера пробовала!!!
вариант от hCORe - ругается на строке RTB.SelPrint CommonDialog1.hdc
под отладчиком говорит, что CommonDialog1.hdc=0

Вариант от alibek
я читала, что вначале нужно проинициализировать принтер
Printer.Print ""
RTB.SelPrint Printer.hdc
ругается, говорит, что ошибка принтера, хотя
Printer.Print "111" - печатает

и потом, во втором варианте как можно изменить принтер? Ну в смысле пользователь должен выбрать один из установленных на его машине принтеров

[hCORe]

На всякий случай, вот:

Код: Выделить всё

With CommonDialog1
    .CancelError = True
    .Flags = cdlPDReturnDC + cdlPDNoPageNums
    If RichTextBox1.SelLength = 0 Then
        .Flags = .Flags + cdlPDAllPages
    Else
        .Flags = .Flags + cdlPDSelection
    End If
    .ShowPrinter
    If Err <> MSComDlg.cdlCancel Then
        RichTextBox1.SelPrint .hDC
    End If
End With

Надо было установить флаги печати (возвращать DC после открытия окна).