Private Sub Command2_Click()
Set WordApp = New Word.Application
On Error Resume Next
WordApp.Documents.Add (App.Path & "\Luax.dot") ' Это путь к вордовскому темплейту
WordApp.Visible = True
dat = Format(Date, "dd.MM.yyyy")
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection
Set clR = WordApp.ColorFormat
doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=13
sel.TypeText ("Time")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Sunday")
sel.Columns(1).Width = sel.Columns(1).Width + (sel.Columns(1).Width - 40)
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Time")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Monday")
sel.Columns(1).Width = sel.Columns(1).Width + (sel.Columns(1).Width - 40)
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Time")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Tuesday")
sel.Columns(1).Width = sel.Columns(1).Width + (sel.Columns(1).Width - 40)
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Time")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Wednesday")
sel.Columns(1).Width = sel.Columns(1).Width + (sel.Columns(1).Width - 40)
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Time")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Thursday")
sel.Columns(1).Width = sel.Columns(1).Width + (sel.Columns(1).Width - 40)
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Time")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Friday")
sel.Columns(1).Width = sel.Columns(1).Width + (sel.Columns(1).Width - 40)
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
sel.MoveRight Unit:=12
sel.TypeText ("Class")
sel.Columns(1).Width = 40
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
For i = 1 To MSFlexGrid1.Rows - 1
For ii = 0 To 12
MSFlexGrid1.Row = i
MSFlexGrid1.Col = ii
sel.MoveRight Unit:=12
If MSFlexGrid1.Col Mod 2 > 0 Then
sel.TypeText (MSFlexGrid1.Text)
Else
sel.TypeText (IIf(Trim(MSFlexGrid1.Text) = "", "", vbCr & MSFlexGrid1.Text))
End If
If MSFlexGrid1.RowHeight(i) = 25 Then
sel.Columns(1).Height = 2
sel.Columns(1).BackColor = &H80000000
sel.Borders.Shadow = True
sel.Shading.BackgroundPatternColorIndex = wdGray25
Else
End If
Next
Next
Set WordApp = Nothing
End Sub
Как можно максимально эффективно распечатать грид?
Здрасьте всем! :) Как можно распечатать грид? Ищу самый эффективный код! У меня еще проблема насчет распечатываемого объема, печатается только первый лист, а остальные нет! ( Напишите, кто знает! Заранее спасибо! ;) Всем пока! :)
Какой грид, уточните?
MSFlexGrid
Ну неужели на мой вопрос никто не ответит??? :(
Посмотрите здесь, возможно эта ссылка Вам пригодиться.
[QUOTE=pashulka]Посмотрите здесь, возможно эта ссылка Вам пригодиться.[/QUOTE]
Pashulka большое спасибо! Но, это мне не подходит, там только печать формы! А мне нужно чтобы грид печатался! :)
Pashulka большое спасибо! Но, это мне не подходит, там только печать формы! А мне нужно чтобы грид печатался! :)
Пожалуйста, вот пример распечатки в Вордовский документ.
В гриде 13 столбцов, а строки в проге добавляются автоматом
В гриде 13 столбцов, а строки в проге добавляются автоматом
Код: