| |
|
|
| | Есть код
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
Форма закрывается. Что-то никак не соображу как сделать. чтобы после просмотра форма оставалась на экране.
Мысли есть?
ЗЫ вопрос - Зачем распечатывать форму - не задавать. - НАДО!
Конструкции, аналогичные печати не работают... | |
| |
| |
| |
|
|
| | Решил проблему панелью инструментов. Кнопочка предв.просмотр. Теперь другой вопрос.
Что это за режим такой и как отключить в нем кнопки закрытия окна.
Предв.просмотр формы - это некий вид представления формы или что?
Просто интересно... | |
| |
| |
| |
|
|
| |
это где такая кнопка? у тебя акс какой? | |
| |
| |
| |
|
|
| | 2003 А панель и кнопочку я сам сделал | |
| |
| |
