Господа, здравствуйте.
Есть проблема.
Открывается отчет как экземпляр и на экране их может быть несколько.
Нужно распечатать активный экземпляр.
Это и не получается.
При нажатии кнопки печати я в коде нахожу нужный экземпляр,
а как отправить на печать отчет именно с этими данными.

В последствии нужно будет и в ПДФ выбрасывать, и там та же беда

DoCmd.OutputTo acOutputReport, MyName, acFormatPDF, MyFile, True

как сюда впихнуть невпихуемое?

Акс 2007 sp3

MrShinНе пробовал, но по идее должно работать, если сначала активировать нужный экземпряр



туда рвался изначально.
Наверное нужно уточнить чуток.
Отчет открывается в режиме просмотра (не отчета).
В этом состоянии у репорта нету свойства SetFocus.
Пробовал и через установки фокуса на контрол, та же беда.
Сделал его открытие в режиме отчета. Да, тут уже можно поиграть, правда данными не заполняется
но думаю это можно было бы решить, но не красиво на экране получается. Тыкнул в облать репорта и область выделяется...

`

тоже не прокатило..

Вчера пришла идея (как всегда перед тем как заснуть), наверное придется сделать дубль этого отчета и открывать его обычным экземпляром сразу на печать, правда у меня используются временная заливка данных в темр таблицу для источника...

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

О!
По ходу вы меня опередили)))

про модуль класса не совсем понял... т.е. копировать этот репорт программно просто под другим именем и потом открывать его на печать?

ПЕНСИОНЕРКА,

Как раз в ворде все и было.
Потом человек все время в пдф конвертировал.
Как бы убираем не нужное звено...

И вот пока играюсь всплыла "проблема"
Открываешь 3 экземпляра - все ок
открываешь 4ый - и половины вложенных отчетов нету, от слова совсем.
При чем, все это происходит молча.
как вариант - предполагаю, что натыкаюсь на ограничение открытых объектов(баз данных)
потому как в темп таблице данные для этих подъотчетов есть, а на экран не выводятся...

Использую Line для рисования по нужной высоте клеток псевдо таблицы. перенес из подчиненного в основной в группировку - это в попытке уменьшить количество количество "баз данных".
В подчиненном работало на ура, в основном не подстраивается под реальную высоту поля, рисует тупо по размеру из конструктора... Может не успевает расставить поля все перед тем как линии рисовать... репорт длинный и большой по данным полей 50-70 по всему размазано, у многих полей стоит "расширение".

Вобщем, какое то веселье... если есть у кого какие мысли - поделитесь, плиз.

Кстати, может плохо ищу, но что то типа ФАК по работе с формами, сделать и для репортов и их экземпляров.
Понимаю, что почти одно и тоже. Но различия есть и приходится их по кусочкам собирать на форуме.

alecko,

Спасибо за информацию!
Что то я пока не сильно понял по коду, я потом спрошу непонятное..

Пока тут игрался, дай думаю попробую стандартной кнопкой конвертнуть в пдф
Открыл 3 отчета активным сделал 2й(средний)
Конвертировать - показать - и опа - а все равно конвертирован 1й открытый экзапляр
Даже у себя в стандартных средствах это дело не сделали..

PredeclaredА так пробовали?

The OutputTo method carries out the OutputTo action in Visual Basic.

expression.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart, TemplateFile, Encoding)
ObjectName Optional Variant. A string expression that's the valid name of an object of the type selected by the ObjectType argument.
If you want to output the active object, specify the object's type for the ObjectType argument and leave this argument blank .
не прокатило
ПЕНСИОНЕРКАречь вед идет о том, открыто несколько отчетов, их каким то образом просматривают, по какому то критерию отбирают
---вот поэтому и предлагаю, заранее в форме высветить этот критерий
проблема не в найти нужный экземпляр, а распечатать его. Открыто 3 экземпляра отчета вне зависимости от того, какой отчет сейчас активен, печатается первый открытый экземпляр

ПЕНСИОНЕРКАвот из-за этого и применяю вордовские или НТМ отчеты
по умолчанию у меня ПДФ-принтер
там еще есть факт закрытия вордовского файла паролем(тоже есть).
Просто нужен "защищенный от изменения документ".
ПДФ принтер, своего рода костыль.

alecko,
aleckoэта проблема вылазит при выводе нескольких копий одного класса(имя модуля класса - одинаковое). если отчеты вообще разные-т.е. модули разные, и имена разные, то проблемы нет вообще - сделать public переменную, которая принимает имя получившего фокус или клик отчета. и распечатывать отчет с этим именем (открывая второй раз в нормальном режиме)

Код по поиску нужного экземпляра с попыткой старта
пробовал и из модуля и из самого репорта



печатает, но только когда открыт только один экземпляр.
Если открыто несколько, то бьет ошибку...
-2147219503 --Method 'Orientation' of object '_Printer' failed
не дает настраивать этот самый принтер, как я понял

alecko,

если не сложно, направьте
или у вас хоть и экземпляры отчетов, но они открыты по одному?

alecko,

Спасибо за помощь!
aleckoсоздаете Private коллекцию в разделе объявлений вызывающего модуля, после создания экземпляра класса закидываете его в коллекцию, (при этом в экземпляре получаете hwnd-это код окна он всегда уникальный-его присваивает система (но можно и счетчик какой-нить)), с этим индексом, снова создаете экземпляр-закидываете в коллекцию со своим индексом, т.е. все модули у Вас в коллекции со своими индексами.

Что я подразумеваю.
У меня есть какой то отчет. Я открываю его через New_AR1. Как экземпляр.
Потому как хочу открыть несколько экземпляров ОДНОГО отчета.
Есть код в модуле этого отчета. Как я понимаю, это тоже модуль класса.

Модуль по вызову на печать отдельный. В нем я находил активный экземпляр отчета (Hwnd активного окна сохраняю отдельно) по Hwnd перебором коллекции Reports и пытался из него(самого экземпляра отчета в коде) вызывать печать.
Из правила "Как закрыть экземпляр формы" - сначала фокус на экземпляр, потом ее закрытие.
Но тут не прокатывает, ибо фокус перекинуть невозможно из за режима - Просмотр.

aleckoРаспечатываете отчет как член коллекции по индексу.
(настройка принтера должна быть в экземпляре класса)-отдаете только команду-нужному экземпляру как члену коллекции по индексу, т.е. открываете этот же экземпляр класса но на печать...
Код настройки принтера я заносил в модуль самого отчета - это же модуль класса
Хотя реакция была одинаковая, что код был в модуле отчета, что во внешнем, одинаковая.
Код я привел выше.

Если открыт один ЭКЗЕМПЛЯР отчета - он распечатывается без проблем
если открыто несколько экземпляров одного отчета - выбивает ошибку.

Сейчас буду глядеть вашу ссылку

alecko,

Да, это пробовал чуть ранее
по образу
expression.OutputTo(ObjectType, , OutputFormat, OutputFile, AutoStart, TemplateFile, Encoding)
печатает первый открытый экземпляр

alecko,

да, все таки мы думали в одном ключе.
Правда, я думаю скопировать отчет под другим именем и при необходимости его на печать/пдф выбрасывать
да, будет + по весу бд
но зато не нужно будет много действий. Да и отчет итоговый - относительно долгоиграющий

Ёжик`Word (2010 точно) умеет сохранять в PDF, ничего не мешает делать это программно из акцеса.
Да, я это знаю
Идея была вовсе отказаться от ворда.

ИгортанИспользую Line для рисования по нужной высоте клеток псевдо таблицы. перенес из подчиненного в основной в группировку - это в попытке уменьшить количество количество "баз данных".
В подчиненном работало на ура, в основном не подстраивается под реальную высоту поля, рисует тупо по размеру из конструктора... Может не успевает расставить поля все перед тем как линии рисовать... репорт длинный и большой по данным полей 50-70 по всему размазано, у многих полей стоит "расширение".

Господа, может кому пригодится.

Из хелпа по .Line(...)
авторзамечания

Вы можете использовать этот метод только в процедуре события или макрос , указанном в OnPrint или OnFormat свойства события для раздела отчета, или OnPage свойства события для отчета.
Так вот. Ковырялся на форуме и сейчас обратно не найду, кто писал, но:
в OnFormat - с контролами можно кое что делать. При этом - получившиеся размеры полей НЕИЗВЕСТНЫ. потому берутся как в конструкторе.
в OnPrint - вот здесь реальные размеры полей уже известны. И прорисовку линий по размерам полей нужно делать именно здесь.

я перенес вызов прорисовки в OnPrint и все стало на места...

Игортан,

Господа. вопрос.
чем отличается две строки
1

и
2

Не остается ли что то где то при закрытии 2 вариантом?

Predeclared,

Т.е. по второму варианту рекордсет может остаться открытым?
Вот это поворот!

Некое подозрение неизвестного было...
Не зря говорят
раз есть пчелы, где то должен быть мед....

Вообще, это я начал искать, как решить проблему отсутствия данных в подчиненных отчетов при открытии 3 и более экземпляров одного отчета.
Ошибок никаких нет, но и отчет получается не полный.
Основываюсь на том, что при некоторых нестыковках, типа обращения к контролу в экземпляре форм ошибки как таковой не происходит. Как будто и не было ничего.
Подумал, что и в отчетах так тоже может быть. ибо думать пока больше некуда.
Все вложенные подч репорты связаны с главным, связи проверял. Да и в 1м-2х экзеплярах все хорошо, а в3м половина подч репортов не ваыводится.
А источником для гл отчета - одна таблица и все подчиненные - на второй таблице.
По сути поднимается порядка 7 запросов.
Другое дело, что при этом открыты как минимум 3 экземпляра формы. Для них тоже как бы рекордсетов куча..

Predeclared,
Пропал чуток на выходные...

Да, эксель и ворд можно покрутить ручками.
Изначальная задача была
Создать документ, защищенный от изменения. Понятно, что со всеми условностями.
Было создавал вордовский документ и запароливал его.
Человек постоянно этот документ перегонял в пдф. Так у них идет документооборот.
Решили убрать "ненужное звено".
Вот и весь компот.
Правда я уже туда примазал несколько экземпляров, ибо рабочая форма тоже открывается в нескольких экземплярах. Повоюю еще чуток, может тупо заглушку поставлю, на один экземпляр, чтобы уже ничего остального не переделывать....

Переделал я строки уничтожения рекордсетов на с "MyRec.Close"
Попал в интересную ситуацию
Теперь у меня в групповых формах(они разделенные, используется табличная часть) фокус не возможно установить на какую либо строку кроме первой...
и смех и грех. Проверил на одной форме - убрал Close перед Nothing и все опять заработало.
Нужно уточнить - источники форм: ADODB.Recordset
может в этом затык, не знал про такое...

И еще вдогонку вопрос. Сеть у человека слабовата, периодически идут слеты данных в табличных формах - #Name или ?Name уже не помню точно. Использовал DAO.
Решил переделать на ADODB. Считал данные, присвоил рекордсет форме и об источнике забыл. Нужны новые данные - обновил форму.
Вопрос - правильно ли я поступил, или есть более простые решения моргания сети.
К админам не отправляйте ибо идти некуда

Игортан,

И еще, если можно, вопрос.
Источником формы является ADODB - набор данных.
Основан например на 5 таблицах.
Так после открытия формы, присваивания полученного рекордсета форме и уничтожения этого ADODB (перед этим он передается Recordset формы). Сколько "таблиц" будет задействовано.
Это я к "невозможно открыть больше таблиц/баз данных".
Это будет один набор - одна таблица или
это все равно будет слепок с 5 таблиц и как следствие будет "задействовано" 5 таблиц?