Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обрезается изображение в отчёте. / 9 сообщений из 9, страница 1 из 1
28.04.2020, 18:13
    #39952464
melihron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
Всем привет камрады.
Суть проблемы : при выводе на печать сформированного в отчёте чертежа, картинка обрезается.
Access 2003 и 2013
Подскажите плиз кто знает.
...
Рейтинг: 0 / 0
28.04.2020, 18:17
    #39952468
melihron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
Ну то есть сначала она вся печаталась, но вот по мере её доработки, почему-то стала обрезаться процентов на 70. :( ничего вроде не менял...
...
Рейтинг: 0 / 0
29.04.2020, 10:22
    #39952733
melihron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
Вопрос снимается. Access не виноват.
...
Рейтинг: 0 / 0
29.04.2020, 11:01
    #39952745
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
melihron
Вопрос снимается. Access не виноват.
А кто виноват? Вот придёт следующий вопрошающий (иногда поиском пользуются, я надеюсь), а тут такой облом - вопрос есть, ответа нет...
...
Рейтинг: 0 / 0
29.04.2020, 11:07
    #39952748
bubucha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
настройки принтера?
...
Рейтинг: 0 / 0
29.04.2020, 12:12
    #39952784
melihron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
Панург
melihron
Вопрос снимается. Access не виноват.
А кто виноват? Вот придёт следующий вопрошающий (иногда поиском пользуются, я надеюсь), а тут такой облом - вопрос есть, ответа нет...


как бы так покороче то....
Для постройки чертежа, я перебираю строчки рекордсета, и в зависимости от значений, вычисляются координаты отрисовки каждой детальки
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
  Set rs = DBEngine(0)(0).OpenRecordset(q)
  Do Until rs.EOF
'------------------------------------------------------------
  rs.MoveFirst
    If rs("id").Value = rs("main_remains_id").Value Then ' считаем, что это материнская панель
      If XPanel = 0 Then ' ----------убрал вот этот IF
        XPanel = rs("rx"): YPanel = rs("ry")
.....
        ScaleMode = 3
.....
' координаты нулевой панели
        x00 = ScaleTop
        y00 = ScaleLeft + 700
        xmax0 = ScaleWidth
        ymax0 = ScaleHeight - 100
        DrawTitle
        DrawSquare

'      Line (1, 950)-(4000, 950), RGB(0, 0, 0)
'      End If ' If XPanel = 0 Then
    End If ' If rs("id").value = rs("main_remains_id").value Then
    
' rs("rx") - ширина болванки
' rs("ry") - длина болванки
' rs("dx") - смещение по x
' rs("dy") - смещение по y    

и т.д...

методом построчного сравнения рабочего модуля двухнедельной давности и текущего, обнаружилось, что если убрать проверку
Код: vbnet
1.
      If XPanel = 0 then


то отрисовка не кривеет.
Смысл грубо в том, что по значениям первой записи рекордсета формируется шапка и определяются некоторые начальные координаты всего остального.
В том числе ширина материнской панели XPanel, на основе значения которой идут дальнейшие расчёты... так вот если убрать эту проверку, то рисуется нормально.
Переделал процедуру так, что сначала делаю MoveFirst... рисую на основе первой записи шапку и остальные расчёты.... а потом делаю перебор остальных записей рекордсета...
как-то так... вобщем так я особо и не понял собственно, что было... значение переменной теряется почему-то... наверно я чего-то не знаю...
...
Рейтинг: 0 / 0
29.04.2020, 12:17
    #39952790
melihron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
в итоге получается вот такая красотень
...
Рейтинг: 0 / 0
29.04.2020, 17:42
    #39952965
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
melihron,
самое интересное что "Basis" (Баз.мебель)делает это без проблем с самым рациональным раскроем (для материала без рисунка или с указанием ориентирования детали если материал с текстурой,задается отступ от края,толщина пилы и т.д и т.п.) Сама программа,точно не знаю,но не последние версии, бесплатны и их функционала хватает за глаза
...
Рейтинг: 0 / 0
29.04.2020, 17:59
    #39952976
melihron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обрезается изображение в отчёте.
sdku
melihron,
самое интересное что "Basis" (Баз.мебель)делает это без проблем с самым рациональным раскроем (для материала без рисунка или с указанием ориентирования детали если материал с текстурой,задается отступ от края,толщина пилы и т.д и т.п.) Сама программа,точно не знаю,но не последние версии, бесплатны и их функционала хватает за глаза


правда штоли? о, вы такой умный... в следующий раз обязательно у вас сначала консультироваться
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обрезается изображение в отчёте. / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]