Страница 1 из 1
Как вывести на отчет сразу на принтер
Добавлено: 20 мар 2019, 17:17
Mekhtiev
Всем привет! В виду отсутствия доверия кладовщикам, возникла потребность сделать так, чтоб они могли распечатать материальный отчет без возможности его скорректировать...Как быть, поделитесь соображениями или опытом.. думаю окошко свое нарисовать, с кнопкой которая сразу на принтер отправит печататься отчет. Реально ли? или другими путями идти??
Re: Как вывести на отчет сразу на принтер
Добавлено: 20 мар 2019, 20:10
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);
Re: Как вывести на отчет сразу на принтер
Добавлено: 21 мар 2019, 13:45
Masygreen
1) Вроде есть настройка - сразу отправлять на печать
2) Макросом в Excel
3) Опять таки Excel не открывать файл, а складировать в заранее определенной папке - а службу печати настроить в режим печатать всё из папки
Re: Как вывести на отчет сразу на принтер
Добавлено: 01 апр 2019, 13:37
YuryN
Для MS Office 2007 была программа просмотра без возможности редактирования документов.
Бесплатная официальная программа, скачивали с сайта Microsoft.
Для нескольких пользователей мы устанавливали Open Ofice, а этот просмотрщик.
В параметрах Галактики прописывали вместо Word и Excel эту программу.
Секция Forms параметры WordFileName и ExcelFileName.
Вроде работало.