Печать отчета Access из VB6

[Che]

Добрый день.
Есть некий код вывода отчета Access на печать, проблема в том что он тупо печатает на принтер установленный по умолчанию - хотелось бы добавить принт диалог перед распечаткой. Подскажите пожалуйста.

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

Private Sub Command1_Click()
Dim appAcc As Object
    Set appAcc = GetObject("C:\1\fn1.mdb")
    appAcc.DoCmd.OpenReport "Report1"
    Set appAcc = Nothing
End Sub


[Денис]

Подскажите пожалуйста.

Помнится, перед вызовом appAcc.DoCmd.OpenReport я вызывал что-то наподобие appAcc.DoCmd.OpenPrinter. Уточните в F2.

[Che]

appAcc.DoCmd.OpenPrinter

такого там нет

[Денис]

appAcc.DoCmd.OpenPrinter

такого там нет

ну ищите подобное. в акцессе можно вызывать диалог принтера. потом акцесс запоминает настройки и далее просто печатаем хоть из скрипта, хоть из среды. посмотрите варианты в мастере (конструкторе) кода.

[HandKot]

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

DoCmd.OpenReport "Report1", acViewPreview

а там уже и принтер можно выбрать