VPF::[MS Access] Печать - Форум программистов

DeFeu

Дата 26.6.2008, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 26.6.2008

Репутация: нет
Всего: нет

Доброе время суток!

в базе данных есть кнопочная форма. в ней несколько документов. нажимая на кнопку открывается Word, в нем документ соответствующий (например, Договор Купли-Продажи, или Агентский договор). с открытием документов все в порядке.

вопрос в следующем. есть кнопка, нажимая которую, по идее, все документы, находящиеся в этой форме должны напечататься. и в разном количестве копий.
проблема в том, что нажимая на кнопку "печать" документы начинают друг за другом быстро открываться в Word, пока не откроется последний. принтер при этом не распечатывает ничего. потом нажимаешь отмену печати, и печать начинается! при этом печатает не все документы. например, идет сначала договор КП (кол-во -2 экз), потом агентский договор(2), потом устав(1) и т.д. печать начинается не с договора КП, а с агентского и дальше.

почему я не понимаю! процедуру кнопки составлял не я, поэтому даже не знаю что там не так.

подскажите в чем дело

Код


Private Sub Кнопка266_Click()
Dim Шаблон As String
Dim Контейнер As String
Dim printquan As Integer
 
Call printdoc("motor.dot", "motor.doc", 1)
Call printdoc("motorAD.dot", "motorAD.doc", 1)
Call printdoc("APPdv.dot", "APPdv.doc", 1)
Call printdoc("otagdv.dot", "otagdv.doc", 1)
Call printdoc("PKOdv.dot", "PKOdv.doc", 1)
Call printdoc("RKOdv.dot", "RKOdv.doc", 1)
 
 
End Sub
 
Private Sub printdoc(Шаблон As String, Контейнер As String, printquan As Integer)
Dim app As Word.Application
Dim strDOT As String
Dim strDOC As String
Dim ctl As Control
Dim s As String
 
    On Error GoTo 999
    With Application.CurrentProject
        strDOT = .Path & "\" & Шаблон
        strDOC = .Path & "\" & Контейнер
    End With
    
    Set app = New Word.Application
    app.Visible = True
    app.Documents.Add strDOT
    With app.ActiveDocument
        On Error Resume Next
        For Each ctl In Me.Controls
            If ctl.ControlType = acTextBox Then
                s = ctl.Name
                .Bookmarks.Item(s).Range.Text = Me(s)
                Err.Clear
            End If
        Next ctl
        .SaveAs strDOC
        For n = 1 To printquan
        .PrintOut
        Next n
        .Close
        app.Quit
        On Error GoTo 999
    End With
    Exit Sub
999:
    MsgBox Err.Description
    Err.Clear
    app.Quit
End Sub

Это сообщение отредактировал(а) Akina - 26.6.2008, 11:27

Akina

Дата 26.6.2008, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Модератор: Название темы должно соответствовать ее содержанию.