Печать в Excel

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
rayden77
Сообщения: 1
Зарегистрирован: 20 ноя 2007, 18:37

Приветствую! Есть проблема: есть шаблон документа Excel. Шаблон я наполняю из своего приложения и выводу на печать. Как сделать так, чтобы несколько строк были неразрывны между страницами на печати? И еще, скажите как определить на какой странице (для печати) находится та или иная строка (ячейка)?
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

после "предварительного просмотра" он нарисует пунктир между страницами. Можно вставить свой разрыв в нужном месте (через меню вставка)
Изображение
bi-lya
Сообщения: 97
Зарегистрирован: 07 июн 2007, 14:08

Скидал на скорую руку - но типа того:

Код: Выделить всё

    Dim a As Range
    If ActiveSheet.HPageBreaks.Count <> 0 Then
      i = InputBox("Введите номер строки")
      Set a = ActiveSheet.HPageBreaks(1).Location
      MsgBox "Ячейка находится на странице №" & i \ a.Row + 1
    Else
      MsgBox "Данные отсутствуют или располагаются только на 1 странице"
    End If
Да, и свой разрыв можно вставить программно, см. HPageBreaks.Add...
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Только помните, что всё это существенно зависит от масштаба листа и выбранного
принтера. Cмените и всё "поедет" :(
Ответить