TopPicLogo TopPicText

MS Excel - Экспорт Данных в шаблон по данным Формы (+ Пример)


Код из примера:

Private Sub Печатать_Click()
Dim app As Object, wrk As Object
Dim iRow%, s$
Dim iRecordNO%

'--------------------------------------------------------------------------
On Error GoTo Печатать_Click_Err
    Set app = CreateObject("Excel.Application")
    Set wrk = app.workbooks.Open(CurrentProject.Path & "\Книга1.xltx")
    With Me
        app.range("B1") = !фамилия & " " & !имя & " " & !отчество
    End With
    
    iRow = 5
    With Me.[родня подчиненная форма].Form.Recordset
        'Debug.Print .RecordCount
        .MoveFirst
        Do Until .EOF = True 'Цикл до конца таблицы
            iRecordNO = iRecordNO + 1 'Номер записи
            s = "A" & iRow
            app.range(s) = iRecordNO
            s = "B" & iRow
            app.range(s) = !фамилияР & " " & !имяР & " " & !отчествоР
            
            s = "C" & iRow 'Форма родства
            app.range(s) = !форма
            
            s = "D" & iRow
            app.range(s) = !датаРождР & " "
            iRow = iRow + 1
            .MoveNext
        Loop

    End With
    'app.DisplayFullScreen = False
    'app.WindowState = -4137 'во весь экран
    'app.Visible = True

    app.WindowState = 3 'во весь экран
    app.Visible = True


    
Печатать_Click_Bye:
    Set wrk = Nothing
    Set app = Nothing
    Exit Sub

Печатать_Click_Err:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Sub: Печатать_Click in module: Form_главная", _
    vbCritical, "Error in Application: " & Err.Source
    Err.Clear
    Resume Печатать_Click_Bye
    
End Sub

Picture



Результат:

Picture




Скачать

MSA-2007 ( 40 kB) Пример


Назад ToTop
L.E. 23.11.2017
Рейтинг@Mail.ru