Проблема с Engine.startnewpage

Kuzjaka · December 2009

Собственно ничего нового я не делал, просто повторил скрипт, который работал в FR Studio 4.

Суть его в том, чтобы при печати накладной на последней странице был всегда хотя бы один бенд.

Public Class ReportScript
    
Dim Num as Integer = 0
    
Private Sub MasterData1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
      
Num = Num + 1

If (CType(Report.GetParameterValue("intTotalRecords"), Int32) = Num) And (Engine.FreeSpace < ReportSummary1.Height + 30) Then
   Engine.StartNewPage
End If

    
End Sub

End Class

Здесь переменная "intTotalRecords" - число строк в таблице = числу выводимых бендов.

Так вот, когда на последней странице после срабатывания Engine.StartNewPage оказывается всего один бенд, значение поля [Row#] остается пустым.
Если на последней странице после срабатывания Engine.StartNewPage оказывается более одного бенда, значение поля [Row#] отображается верно.

Для наглядности прикрепляю четыре скрина с разными количествами строк-бендов.

AlexTZ · December 2009

Спасибо, исправлю в следующем билде. Кстати, для удержания хотя бы одной строки данных с подвалом, используйте свойство "Не отрывать от данных" у подвала. Скрипт не нужен.

Kuzjaka · December 2009

AlexTZ написал: »

Спасибо, исправлю в следующем билде. Кстати, для удержания хотя бы одной строки данных с подвалом, используйте свойство "Не отрывать от данных" у подвала. Скрипт не нужен.

Благодарю.
Действительно обошлось без скрипта.

И заодно уж, не подскажите, как лучше скрывать надпись в подвале страницы "Страниц N из M", когда страница одна и показывать ее, когда их больше одной?

Я пока сделал так:

Private Sub PageFooter1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
       
      If CType(Report.GetVariableValue("TotalPages"), Int32) = 1 Then
        MemoPages.Visible = False
      Else
        MemoPages.Visible = True
      End If
      
    End Sub

но как то это не всегда срабатывает или срабатывает неправильно.

AlexTZ · December 2009

- включите два прохода у отчета;
- у объекта "Текст" задайте условное выделение:
Выражение: [TotalPages] == 1 (если язык - Vb, то [TotalPages] = 1)
и отключите флажок "Видимый" в настройках условного выделения.

Kuzjaka · December 2009

Благодарю, попробую.

И заодно уж, чтобы не открывать новую тему.

Не планируется ли у вас экспорт в формат MS.Office 2003 (xls), не (xml), как это у вас есть сейчас, без присутствия самого MS.Office 2003, как это есть у ваших конкурентов в StimulSoft?

Это сейчас очень актуально, потому как мы работаем с Open Office, а файлы отправляем в формате MS.Office 2003 (xls) и пока что приходится программно сохранять файл формата Open Office в формате MS.Office 2003 (xls).

Благодарю.

AlexTZ · December 2009

Экспорт в xls не планируется. Раз вы работаете с OpenOffice, почему бы не использовать имеющийся экспорт в OpenOffice Calc?

Kuzjaka · December 2009

AlexTZ написал: »

Экспорт в xls не планируется. Раз вы работаете с OpenOffice, почему бы не использовать имеющийся экспорт в OpenOffice Calc?

Так это мы работаем с OpenOffice, а наши партнеры работают с MS Office, вот и приходится подстраиваться под них, чтобы не создавать им проблемы с конвертацией формата.

А с чем связано, что вы это не планируете?
Вещь то очень нужная в свете указанного мною, да и конкуренты ваши это уже давно реализовали.

AlexTZ · December 2009

Очень трудоемкая поддержка формата, которому уже 12 лет. Тем более что для офиса2003 есть прекрасный заменитель в виде xml.

Kuzjaka · December 2009

И последнее, у вас вчера сменился номер билда - 1.3.1.

Смена второй цифры в бильде означает какой то качественный сдвиг?
Или это все относительные накопления?

AlexTZ · December 2009

Это релиз версии 1.3. Скоро будет новость на сайте. Если сравнивать с версией 1.2.82, изменений никаких.

Проблема с Engine.startnewpage

Комментарии

Оставить комментарий