Как вывести на отчет сразу на принтер

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Mekhtiev
Постоянный гость
Сообщения: 92
Зарегистрирован: 24 янв 2013, 16:33

Как вывести на отчет сразу на принтер

Сообщение Mekhtiev »

Всем привет! В виду отсутствия доверия кладовщикам, возникла потребность сделать так, чтоб они могли распечатать материальный отчет без возможности его скорректировать...Как быть, поделитесь соображениями или опытом.. думаю окошко свое нарисовать, с кнопкой которая сразу на принтер отправит печататься отчет. Реально ли? или другими путями идти??
ВБР РУЛИТ)))ИС3
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Re: Как вывести на отчет сразу на принтер

Сообщение spark »

Мы так печатаем комплекты документов(Счет, накладная счет-фактура). Но пользуемся не стандартными печатными формами, а сделали для этого отдельный интерфейс, который готовит поток данных, фастрепортом формирует отчет и сразу его печатает.

Код большой, поэтому надергал оттуда только суть:

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

var PrintParam: frxPrintParam;
var DefPrintParam: frxPrintParam;  
var FReport: LongInt;  

printer:=sgettune('GALCOMMON.PARTNER.PRINT.PRNPORTRAIT')

ClearAdvRecord(PrintParam);
ClearAdvRecord(DefPrintParam);
FRGetDefaultParameters(frPrintParam, DefPrintParam);
FRGetDefaultParameters(frPrintParam, PrintParam);
PrintParam.ShowDialog := false;
PrintParam.CopiesCount := 1
PrintParam.PrinterName:=printer
PrintParam.Pages := '' 

FReport := FRCreate([Название потока данных]);
FROpenReport(FReport,[Название отчета])
FRSetParameters(FReport, frPrintParam, PrintParam); 
FRPrintReport(FReport);
FRSetParameters(FReport, frPrintParam, DefPrintParam);
FRDestroy(FReport);
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Как вывести на отчет сразу на принтер

Сообщение Masygreen »

1) Вроде есть настройка - сразу отправлять на печать
2) Макросом в Excel
3) Опять таки Excel не открывать файл, а складировать в заранее определенной папке - а службу печати настроить в режим печатать всё из папки
Время ведет!
YuryN
Посетитель
Сообщения: 32
Зарегистрирован: 28 ноя 2013, 12:03
Откуда: Беларусь, Гомель

Re: Как вывести на отчет сразу на принтер

Сообщение YuryN »

Для MS Office 2007 была программа просмотра без возможности редактирования документов.
Бесплатная официальная программа, скачивали с сайта Microsoft.
Для нескольких пользователей мы устанавливали Open Ofice, а этот просмотрщик.
В параметрах Галактики прописывали вместо Word и Excel эту программу.
Секция Forms параметры WordFileName и ExcelFileName.
Вроде работало.
Ответить