Работа с отчетом

Picture in Report

Дата: 10.01.2012 12:03:35

Привет ребят. Задачка небольшая. Вариант вроде работает, но немного по-другому хочется – если картинки нет, то ее вообще в отчете не должно видно быть (не просто сделать visible = false, а еще и размеры типа 0 на 0). Как это реализовать?

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
 Dim FileName As String
 FileName = Dir(CurrentProject.Path & "\" & [Disegno].Value & ".*")
 If FileName <> "" Then
    Рисунок0.Picture = CurrentProject.Path & "\" & FileName
 Else
    Рисунок0.Picture = CurrentProject.Path & "\no.jpg"
 End If
End Sub

Picture in Report

Дата: 10.01.2012 15:08:33

нет идей? вот примерчик

непоймучка

Дата: 10.01.2012 15:47:35

Picture in Report
Привет ребят. Задачка небольшая. Вариант вроде работает, но немного по-другому хочется – если картинки нет, то ее вообще в отчете не должно видно быть (не просто сделать visible = false, а еще и размеры типа 0 на 0). Как это реализовать? Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer) Dim FileName As String FileName = Dir(CurrentProject.Path & "\" & [Disegno].Value & ".*") If FileName <> "" Then Рисунок0.Picture = CurrentProject.Path & "\" & FileName Else Рисунок0.Picture = CurrentProject.Path & "\no.jpg" End If End Sub

Picture in Report

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
 Dim FileName As String
 FileName = Dir(CurrentProject.Path & "\" & [Disegno].Value & ".*")
 If FileName <> "" Then
    Рисунок0.Picture = CurrentProject.Path & "\" & FileName
 Else
    Рисунок0.Picture = CurrentProject.Path & "\no.jpg"
 End If
End Sub

Cancel = True не устроит?

непоймучка

Дата: 10.01.2012 15:57:50

поясню вдогонку: если добавить Cancel = True (поместив ваш код не в ОбластьДанных_Print, а в ОбластьДанных_Format) - то это вообще отменит вывод записей, у которых нет файла картинки.

Picture in Report

Дата: 10.01.2012 16:10:34

непоймучка, запись та мне нужно отображать если картинки нет

непоймучка

Дата: 10.01.2012 16:19:57

Picture in Report
непоймучка, запись та мне нужно отображать если картинки нет

Ну если нужно в этом случае чтобы какие-то еще данные (кроме картинки) выводились, то можно например сделать под картинку отдельный раздел (группировка по id записи) - и блокировать его тем же кодом, а основной раздел с прочими данными (область данных) не трогать.

Picture in Report

Дата: 10.01.2012 16:25:15

непоймучка, эммм, не понимаю: "отдельный раздел (группировка по id записи) - и блокировать его тем же кодом, а основной раздел с прочими данными (область данных) не трогать."

Picture in Report

Дата: 10.01.2012 16:27:24

[quot Picture in Report]...не просто сделать visible = false, а еще и размеры типа 0 на 0...[src vba]

плюс нужно высоту ОбластиДанных как бы уменьшить

непоймучка

Дата: 10.01.2012 16:29:46

Picture in Report
непоймучка, эммм, не понимаю: "отдельный раздел (группировка по id записи) - и блокировать его тем же кодом, а основной раздел с прочими данными (область данных) не трогать."

в таком духе

Picture in Report

Дата: 10.01.2012 16:33:50

непоймучка, ооо, кажись то что нужно, сейчас поэкспериментирую! СПАСИБО