Public Function Set_Sheet_Viborka(Patch_Name As String, Sheet_Name As String)
'Печать произвольной выборки
Dim MyRst As DAO.Recordset
Set MyRst = CurrentDb.OpenRecordset("Pay_Reestr_QUE", dbOpenDynaset)
If MyRst.EOF Then 'проверка наличия поступлений платежей
' по данному виду платежа
NET_Postuplenii = Nz(NET_Postuplenii) & vbCrLf & "Нет поступлений " & Sheet_Name
Set MyRst = Nothing
Exit Function 'проверка наличия поступлений платежей
' по данному виду платежа
End If
Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Add
Set xlSheet = xl.Worksheets(1)
xl.Application.Visible = True
xl.Parent.Windows(1).Visible = True
xl.Range("a1:h1").Merge
xl.Range("A1").Select
xl.ActiveCell.FormulaR1C1 = "ККМ - " & Mid(Sheet_Name, 1, 1)
With xl.ActiveCell.Characters(Start:=1, Length:=19).Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With xl.Selection
.HorizontalAlignment = ActiveCell.xlCenter
.VerticalAlignment = ActiveCell.xlBottom
End With
|