Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: ShadowOfSun
Рабочий пример

Private Sub Кнопка34_Click()
On Error GoTo Err_Кнопка34_Click

    Dim stDocName As String
    Dim MyForm As Form
    Dim z As Variant
    
    stDocName = "tblUsers"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acTable, stDocName, True

    z = 1
    Do
       DoCmd.PrintOut acPages, z, z
       MsgBox "Переверните лист"
       z = z + 1
    Loop Until False
    DoCmd.SelectObject acForm, MyForm.Name, False
   
Exit_Кнопка34_Click:
    Exit Sub

Err_Кнопка34_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка34_Click
    
End Sub


Осталось только придумать, как остановить печать


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.