'отрисовка таблицы
.Range("C9:E9").Borders.LineStyle = True
.Range("A10").Borders.LineStyle = True
.Range("B10").Borders.LineStyle = True
.Range("C10").Borders.LineStyle = True
.Range("D10").Borders.LineStyle = True
.Range("E10").Borders.LineStyle = True
.Range("F10").Borders.LineStyle = True
.Range("G10").Borders.LineStyle = True
.Range("H10").Borders.LineStyle = True
.Range("A11:A12").Borders.LineStyle = True
.Range("B11:B12").Borders.LineStyle = True
.Range("C11:C12").Borders.LineStyle = True
.Range("D11:D12").Borders.LineStyle = True
.Range("E11:E12").Borders.LineStyle = True
.Range("F11:F12").Borders.LineStyle = True
.Range("G11:G12").Borders.LineStyle = True
.Range("A13:A14").Borders.LineStyle = True
.Range("B13:B14").Borders.LineStyle = True
.Range("C13:C14").Borders.LineStyle = True
.Range("D13:D14").Borders.LineStyle = True
.Range("E13:E14").Borders.LineStyle = True
.Range("F13:F14").Borders.LineStyle = True
.Range("G13:G14").Borders.LineStyle = True
For Each n% In {1, 8, 9, 10}
.Range("H11:H14").Borders(n).LineStyle = 1 'xlContinuous
Next
'отрисовка текста в макете
appExcel.CELLS(1 + i * 17, 1) = "п/о"
appExcel.CELLS(1 + i * 17, 3) = TextBox2.Text
appExcel.CELLS(2 + i * 17, 3) = "XXX''"
appExcel.CELLS(2 + i * 17, 12) = "Каб 92"
appExcel.CELLS(3 + i * 17, 3) = "АНАЛИЗ КРОВИ №_____ + ЭДС"
appExcel.CELLS(3 + i * 17, 12) = "III этаж"
appExcel.CELLS(5 + i * 17, 1) = TextBox1.Text
appExcel.CELLS(6 + i * 17, 1) = "В учреждение_______________________________________________________"
appExcel.CELLS(7 + i * 17, 1) = "Корпус. отд_________________________________________________________"
appExcel.CELLS(9 + i * 17, 3) = " Толстая капля"
appExcel.CELLS(10 + i * 17, 1) = "Эритроц."
appExcel.CELLS(10 + i * 17, 2) = "Гемогл."
appExcel.CELLS(10 + i * 17, 3) = "Цв. Пок."
appExcel.CELLS(10 + i * 17, 4) = "Полихр."
appExcel.CELLS(10 + i * 17, 5) = "Базоф."
appExcel.CELLS(10 + i * 17, 6) = "Ретикул."
appExcel.CELLS(10 + i * 17, 7) = "Тромбоц."
appExcel.CELLS(10 + i * 17, 8) = "Параз."
appExcel.CELLS(11 + i * 17, 1) = "в 1 куб. мм"
appExcel.CELLS(11 + i * 17, 2) = "80-100"
appExcel.CELLS(11 + i * 17, 3) = "0.8-1.0"
appExcel.CELLS(11 + i * 17, 4) = "+"
appExcel.CELLS(11 + i * 17, 5) = "-"
appExcel.CELLS(11 + i * 17, 6) = "0.6-0.8"
appExcel.CELLS(11 + i * 17, 7) = "250-400"
appExcel.CELLS(12 + i * 17, 1) = "4 1/2 - 5мм"
appExcel.CELLS(12 + i * 17, 7) = "тысяч"
appExcel.CELLS(17 + i * 17, 7) = "каб 29"