Форму на принтер

[Sirik]

Как напечатать форму?
Метод

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

Me.PrintForm

не работает.

[Чудик]

Работает. Сделал
Private Sub Workbook_Open()
Load UserForm1
UserForm1.Show
End Sub

потом
Private Sub CommandButton1_Click()
Me.PrintForm
End Sub

и все ОК.

[Sirik]

Работает. Сделал
Private Sub Workbook_Open()
Load UserForm1
UserForm1.Show
End Sub

потом
Private Sub CommandButton1_Click()
Me.PrintForm
End Sub

и все ОК.

Почему я вопрос поместил в раздел VBA? Да потому-что это надо сделать именно в VBA? в Access'е, вот тут как раз и не получается.

[Чудик]

Извини, но в данный момент ничем помочь не могу. На всем предприятии ни на одном компе нет Access. Такая вот у нас политика. В Excel, как показал, работает, а Access если только вечером дома попробую.

[Чудик]

С отчетом в свое время шло такое
DoCmd.PrintOut, предварительно, конечно, открываешь отчет, а после печати закрываешь.
Но попробовал с формой - выдает ошибку - принтер в данный момент не доступен! Интересная фича! Хотя, в той же справке сказано, что данный метод используется для печати как отчетов, так и таблиц и запросов, а также и форм.
Поковыряй отсюда, может что и получится...

[Sirik]

Я просто хотел помощь чвоему другу, а он уже сделал сам:

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

Set MyForm = Screen.ActiveForm

DoCmd.SelectObject acForm, "SuperPager", True

'DoCmd.PrintOut

DoCmd.PrintOut acPages, 1, 1

DoCmd.SelectObject acForm, MyForm.Name, False


Так что спасибо всем