Sheet.HPageBreaks(i-1).Location = Sheet.Range("A" + str(nKolStrok - 1))

#!c:/python27/python.exe
# -*- coding: utf-8 -*-

import json
import cgi
import os
import cx_Oracle
import win32com.client
import shutil
import datetime


con = cx_Oracle.connect('user/pwd@192.168.137.29/xe')
Excel = win32com.client.Dispatch("Excel.Application")

cur = con.cursor()



now = datetime.datetime.now()
nowStr=str(now)
nowStr=nowStr.replace(":","_")

fileName1 = '../templates/4_3_EO.xlsx'
fileName2 = '../templates/4_3_EO_' + nowStr + '.xlsx'
fileName3='4_3_EO_'+nowStr+'.xlsx'
shutil.copyfile(fileName1, fileName2)

id_Unit_Type=56
iColumn = 1
iRow = 19
NomStolb = 5

if id_Unit_Type == 0:
    VidName =  cur.execute("select Direction from Direction where id_Direction=1")
else:
    cur.execute("select unit_type from Unit_Type where id_Unit_Type=56")
    VidName = cur.fetchone()[0]


Wb = Excel.Workbooks.Open(u'F:\\data\\templates\\' + fileName3)



#Wb.Visible =0
Sheet = Wb.Worksheets(u"Лист")
Sheet.Rows(str(iRow) + ':3000').EntireRow.Hidden = False

#номер
cur.execute("select nom from gr4_3_table order by trv_number")
data=cur.fetchall()

i=19
for row in data:
 Sheet.Cells(i,iColumn).Value = row
 i+=1

#наименование
cur.execute("select x1 from gr4_3_table order by trv_number")
data=cur.fetchall()

i=19
for row in data:
 Sheet.Cells(i,iColumn+1).Value = row
 i+=1

nKolStrok=i


Sheet.Rows(str(i) + ':3000').EntireRow.Hidden = True

st=u"по .. на " + u"2017" + u" год."
Sheet.Cells(15, 1).Value = st

iNach = i
nKolDop = 0


for iBlock in range(iRow, iNach):
    iTrueBlock = Sheet.Cells(iBlock, 1).Value
    Arr = iTrueBlock.split('.')
    if Arr[1] == "":
        Sheet.Cells(iBlock, 1).Value = ""
        Sheet.Range(Sheet.Cells(iBlock, 2), Sheet.Cells(iBlock, 2)).Font.Bold = True
        Sheet.Range(Sheet.Cells(iBlock, 2), Sheet.Cells(iBlock, 2)).HorizontalAlignment = -4131
        Sheet.Cells(iBlock, 2).Font.Size = Sheet.Cells(iBlock, 2).Font.Size + 1
    else:
        nKolDop = nKolDop + 1
        Sheet.Cells(iBlock, 1).Value = nKolDop

used = Sheet.UsedRange
iKonch = used.Rows.Count
iKonch = iKonch + 1
iob1 = iRow


if Sheet.HPageBreaks.Count > 0:
    i = 1
    iRazrPrew = 0
    iRazr = 1
    while iRazr <> iRazrPrew and i <= Sheet.HPageBreaks.Count:
    #Находим разрыв между данными и подписями
        iRazrPrew = iRazr

        iRazr = Sheet.HPageBreaks(i).Location.Row

        #Если разрыв находится сразу под блоком - переносим его на строчку вверх
        iTrueBlok = Sheet.Cells(iRazr - 1, 1)
        if iTrueBlok == "":
            Sheet.HPageBreaks(i).Location = objExcel.Range("A" + (iRazr - 1))     ###########Эта строка не отрабатывает при запуске из браузеров

            iRazr = Sheet.HPageBreaks(i).Location.Row
        #Объединение ячеек
        if iRazr - 1 < iNach:
            Sheet.Range(Sheet.Cells(iob1, 3), Sheet.Cells(iRazr - 1, 3)).MergeCells = True
            Sheet.Cells(iob1,3).Value = u"текст"
            Sheet.Range(Sheet.Cells(iob1, 4), Sheet.Cells(iRazr - 1, 4)).MergeCells = True
            Sheet.Cells(iob1,4).Value = u"текст"

            iob1 = iRazr

        i = i + 1
    iRazr = Sheet.HPageBreaks(i-1).Location.Row
    if iRazr >= iNach and iRazr < iKonch:
        Sheet.Cells(1, 1).Value = i
        Sheet.HPageBreaks(i-1).Location = Sheet.Range("A" + str(nKolStrok - 1)) #Сдвигаем нужный разрыв к предпоследней строке таблицы
        iTrueBlok=Sheet.Cells(nKolStrok - 2, 1)
        if iTrueBlok == "":
            Sheet.HPageBreaks(i-1).Location = Sheet.Range("A" + str(nKolStrok - 1 - 1))
            #Объединение ячеек
        Sheet.Range(Sheet.Cells(iob1, 3),Sheet.Cells(nKolStrok - 1 - 1, 3)).MergeCells = True
        Sheet.Cells(iob1,3).Value = u"текст"

        Sheet.Cells(nKolStrok - 1,3).Value = u"текст"
        Sheet.Range(Sheet.Cells(iob1, 4),Sheet.Cells(nKolStrok - 1 - 1, 4)).MergeCells = True
        Sheet.Cells(iob1,4).Value = u"текст"
        Sheet.Cells(nKolStrok - 1,4).Value = u"текст"
else:
    #объединяем ячейки с первой по последнюю строку таблицы
    Sheet.Range(Sheet.Cells(iRow, 3), Sheet.Cells(iNach, 3)).MergeCells = True
    Sheet.Cells(iRow,3).Value = u"текст"
    Sheet.Range(Sheet.Cells(iRow, 4), Sheet.Cells(iNach, 4)).MergeCells = True
    Sheet.Cells(iRow,4).Value = u"текст"

Wb.Save()
Wb.Close()
#Excel.Quit()

cur.execute("commit")
cur.close()
con.close()

Sheet.HPageBreaks.Add(Sheet.Range("A" + str(nKolStrok - 1)))