ник: Дядя Федор
Есть код
Private Sub BtnPrint_Click()
On Error GoTo Err_BtnPrint_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = "Frm1"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_BtnPrint_Click:
Exit Sub
Err_BtnPrint_Click:
MsgBox Err.Description
Resume Exit_BtnPrint_Click
End Sub
|
Усе нормально - печатает форму и форма остается на месте.
Пробуем сделать предв.просмотр
DoCmd.RunCommand acCmdPrintPreview
Форма закрывается. Что-то никак не соображу как сделать. чтобы после просмотра форма оставалась на экране.
Мысли есть?
ЗЫ вопрос - Зачем распечатывать форму - не задавать. - НАДО!
Конструкции, аналогичные печати не работают...