формирование и печать документов-бланков

PS_ · 6 Июл 2011

Версия AutoIt: 3.3.6.1

Описание:

Стал вопрос формировать и печатать документ-бланк. и так сказать в легком ступоре как это реализовать. Главная задача сформировать и отправить на печать бланк лист формата А4. Думал реализовать и через OLE (например word), но вдруг на компьютере не будет установлен word. И тогда печать не сработает, чего бы не хотелось.

думаю надо генерить картинку и её печатать. BMP любой комп понимает.

в принципе мысли еще вместо word использовать IE, он ведь тоже на любом компе есть.

что посоветуете, куда двигаться?

PS_ · 6 Июл 2011

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

kaster · 6 Июл 2011

PS_ [?]

но хотелось бы сделать самому

разница раздела для новичков от стола заказов в том, что тут тебе надо предоставит наработки кода, в котором ты испытываешь затруднения в дальнейшей реализации для достижения конечной цели. если таковые имеются, не стесняйся выкладывать. в противном случае – стол заказов.
с чего то надо начинать.
пока ты решаешь, где лучше разместить тему, несколько уточняющих вопросов по теме
1. что такое документ готовый к печати? как мне известно, любой документ можно распечатать. то есть по идее они все уже готовы. да и потом, документ документу рознь. что за формат? doc? xls? pdf? т.к. в зависимости от формата файла, возможно, будет необходимо использовать различные инструменты печати.
2. что за окно предпросмотра? как отдельное приложение, опять же по моей памяти, такого нет. есть таковые как часть другого приложения, типа word, excel и иже с ними.

PS_ · 6 Июл 2011

Понял, что тему не там создал, перенесите. Заранее спс.

Делал кое что на AutoIT. Щас стал вопрос формировать и печатать документ-бланк. и так сказать в легком ступоре как это реализовать. В принципе пред просмотр это просто хотелка (не объязательная). Самое главное сформировать и отправить на печать бланк, и чтоб он был на листе А4. Можно было бы реализовать и через OLE (word), но вдруг на компьютере не будет установлен word. И тогда печать не сработает, чего бы не хотелось.

думаю надо генерить картинку и её печатать. BMP любой комп понимает.

что посоветуете?

axlwor · 6 Июл 2011

если не сложные документы - html подойдет, но печать html головняк
а с вордом - или пишешь каждый раз в ворде весь документ (долго и нудно), или делаешь шаблончик и меняешь нужные данные

Redline · 9 Июл 2011

Как идея - создать GUI, в котором поля расположены в определенном порядке.
1. пользователь заполняет нужные поля
2. жмет "печать"
3. все поля превращаются в "Label", чтобы при печати не было видно рамок
4. делаем скриншот окна без рамки
5. отправляем на печать
Набросок по первым 4-м пунктам прилагаю:

Код:

#include <GUIConstantsEx.au3>
#Include <ScreenCapture.au3>
$iWidth = 480
$iHeigth = 640
$hGUI = GUICreate('Blank', $iWidth, $iHeigth)
GUISetBkColor('0xFFFFFF')
Dim $aInputs[4]
$aInputs[0] = GUICtrlCreateInput('ОАО Рога и Копыта', 40, 16, 300, 21)
$aInputs[1] = GUICtrlCreateInput('пункт 1', 16, 96, 200, 21)
$aInputs[2] = GUICtrlCreateInput('пункт 2', 16, 152, 200, 21)
$aInputs[3] = GUICtrlCreateInput('пункт 3', 16, 208, 200, 21)
$hButton = GUICtrlCreateButton('Печать', 16, 250, 200, 50)
GUISetState(@SW_SHOW)
$aPos = WinGetPos($hGUI)
$iBorder = ($aPos[2] - $iWidth)/2
$iTitle = $aPos[3] - $iHeigth - $iBorder
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $hButton
			For $i = 0 To UBound($aInputs) - 1
				$aPos = ControlGetPos('Blank', '', $aInputs[$i])
				GUICtrlCreateLabel(GUICtrlRead($aInputs[$i]), $aPos[0], $aPos[1], $aPos[2], $aPos[3])
			Next
			For $i = 0 To UBound($aInputs) - 1
				GUICtrlDelete($aInputs[$i])
			Next
			GUICtrlDelete($hButton)
			$aPos = WinGetPos($hGUI)
			ConsoleWrite($aPos[0] & @CRLF)
			ConsoleWrite($aPos[1] & @CRLF)
			ConsoleWrite($aPos[2] & @CRLF)
			ConsoleWrite($aPos[3] & @CRLF)
			_ScreenCapture_Capture(@ScriptDir & '\print.jpeg', $aPos[0] + $iBorder, $aPos[1] + $iTitle, $aPos[0] + $aPos[2] - $iBorder, $aPos[1] + $aPos[3] - $iBorder, False)
	EndSwitch
WEnd

Вторая идея - задействовать RichText, правда для его работы нужна махонькая библиотека, зато и возможности огромные:
Создаем в WordPade или в каком другом редакторе заготовку документа и сохраняем в файл .rtf
Содержимое файла пихаем в скрипт, вставляем в нужные позиции наш текст (если Windows чисто английский, то текст придется вставлять в UTF-кодировке тут есть заготовка как переводить русские буквы в rtf-код).

Код:

$oRP = ObjCreate('RICHTEXT.RichtextCtrl.1')
If Not IsObj($oRP) Then
	FileInstall('c:\richtx32.ocx', @SystemDir & '\richtx32.ocx', 1)
	RunWait(@SystemDir & '\regsvr32 /s richtx32.ocx')
	RegWrite('HKEY_CLASSES_ROOT\Licenses', '', 'REG_SZ', 'Licensing: Copying the keys may be a violation of established copyrights.')
	RegWrite('HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB', '', 'REG_SZ', 'mgkgtgnnmnmninigthkgogggvmkhinjggnvm')
	RegWrite('HKEY_CLASSES_ROOT\Licenses\7BC20EDC-4A42-101B-A3C9-08002B2F49FB', '', 'REG_SZ', 'gifblihbhiiihbciocfbkifbqcfcdiebbiqh')
	Sleep(250)
	$oRP = ObjCreate('RICHTEXT.RichtextCtrl.1')
EndIf
$oCommDlg = ObjCreate('mscomdlg.commondialog')
$sFirm = 'ОАО Рога и Копыта'
$sRTF = "{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fswiss\fcharset204{\*\fname Arial;}Arial CYR;}}" & _
"{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\lang1033\f0\fs20\tab\tab\tab\lang1049\f1\fs48" & $sFirm & "\par" & _
"\par" & _
"\fs24\'cf\'ee\'eb\'e5 \'ed\'ee\'ec\'e5\'f0 1\par" & _
"\ul\'cf\'ee\'eb\'e5 \'ed\'ee\'ec\'e5\'f0 2\par" & _
"\'cf\'ee\'eb\'e5 \'ed\'ee\'ec\'e5\'f03\ulnone\fs20\par" & _
"}"
$oRP.TextRTF = $sRTF
$oCommDlg.Flags = 265
$oCommDlg.ShowPrinter
$oRP.SelPrint($oCommDlg.hdc)

ynbIpb · 9 Июл 2011

Вам нужно это: FASTREPORT® for COM/ActiveX
Чудная вещь, куча возможностей.
Автоит с COM объектами работать умеет, так что дерзайте.

В кратце: он имеет собственный редактор бланков и свой формат. Вашему скрипту остаётся только подсунуть данные в нужные переменные и можно печатать.

Garrett · 9 Июл 2011

ynbIpb [?]

Вам нужно это: FASTREPORT® for COM/ActiveX

httр://www.fast-report.com

FASTREPORT® for COM/ActiveX скачать

Здесь можно бесплатно скачать пробную версию FastReport® for COM/ActiveX.
Ограничения:

можно распечатать не более 5 страниц отчета
на странице печатается надпись "FastReport - unregistered".

Добавлено:
Сообщение автоматически объединено: 9 Июл 2011

FastReport for COM/ActiveX Single License - 6770р.

Redline · 10 Июл 2011

axlwor [?]

если не сложные документы - html подойдет, но печать html головняк

Вот сделал, в принципе ничего сложного:

Код:

#include <IE.au3>
$sFirm = 'ОАО Рога и Копыта'
$sP1 = 'правый пункт'
$sP2 = 'левый пункт'
$sHTML = '<html><head></head><body>' & _
'<div style="text-align=center;font-size=20pt">' & $sFirm & '</div>' & _
'<div style="text-align=left;color=red;font-size=10pt">' & $sP1 & '</div>' & _
'<div style="text-align=right;color=green;font-size=10pt">' & $sP2 & '</div>' & _
'</body></html>'
$oIE = _IECreate()
_IEBodyWriteHTML($oIE, $sHTML)
_IEAction($oIE, 'print') ; печать с выбором принтера
;~ $oIE.execWB(6,2) ; печать на принтере "по умолчанию"

ynbIpb · 10 Июл 2011

Garrett, ну это уже его проблемы. Искать крякнутый компонент или купить. Но он того стоит.
з.ы.
А пока можно потренироваться и на демо версии: http://www.fast-report.com/pbc_download/fr_studio_trial.msi
(Оказывается в FastReport Studio тоже есть поддержка COM и стоит дешевле 2170р)

Устанавливаем FastReport Studio, копируем из папки C:\Program Files\FastReports\FastReport Studio\Bin 2 файла: fastreport3.dll и Russian.frc ну и какойнибудь пример отчёта *.fr3. Всё это кидаем в папку с нашим скриптом. Студию можно удалять (если не надо рисовать отчёты).

Код:

$sFasrReport_dll = @SystemDir & "\fastreport3.dll" ; путь к установленной библиотеке
If FileExists ($sFasrReport_dll) = 0 Then ; если файл не существует
	FileCopy (@ScriptDir & "\fastreport3.dll", $sFasrReport_dll, 1) ; копируем в системную папку
	RunWait(@SystemDir & '\regsvr32.exe /s ' & $sFasrReport_dll) ; регистрируем компонент в системе
EndIf

$sReportFile = @ScriptDir & "\my.fr3"
$sLanguage = @ScriptDir & "\Russian.frc"
$fr = ObjCreate("FastReport.TfrxReport")
$res = $fr.Resources
$res.LoadLanguageResourcesFromFile($sLanguage)
$fr.LoadReportFromFile($sReportFile)

$fr.ShowReport

While 1
	sleep (100)
WEnd

PS_ · 11 Июл 2011

Всем откликнувшимся спасибо.

FastReport отпадает т.к. платный, кряки и патчи это не приемлемо.

формировать в IE тоже не гуд. т.к. печатать надо мелкие бланки с линиями и рамками, мелким текстом в рамках (на A4 надо печатать 3 бланка). а в IE с этим проблема.

наверно попробую что советует: Redline

vcomp71 · 25 Авг 2011

Кстати, а может кто подскажет бесплатный ocx, который эмулирует лист excel - чтобы формулы можно было вписывать и ячейки разным цветом раскрашивать.

XpycT · 25 Авг 2011

Vlasssov
Есть Office 2003 Office Web Components

Office Web Components (OWC) are a group of Object Linking and Embedding (OLE) components (allows embedding and linking to documents) implemented as ActiveX control in Microsoft Office 2000, Office XP and Office 2003. These ActiveX Controls can be plugged into web pages, Visual Basic and Visual Basic for Applications (VBA) forms, Windows Forms or programmed in-memory. The OWC can be used by any COM-compliant Component Object Model programming language. Applications like Microsoft Excel, Microsoft Access and Microsoft FrontPage allowed creating interactive web pages using Office Web Components.

The following components are included:
Spreadsheet
Chartspace
Pivot table
Data source component

The Office Web Components have been discontinued in Office 2007, and are not included, except as a part of Office Project Server 2007.[7] However, they will still be available for download from Microsoft's website. Microsoft has not yet offered a complete replacement for the Office Web Components. However, programmers can use a combination of third party products, Excel Services or Visual Studio Tools for Office to provide similar functionality.

The Pivot Table web component does not function on Windows 7.[8]

vcomp71 · 26 Авг 2011

Отлично! А помощь по ним есть где-нибудь?

XpycT · 26 Авг 2011

Vlasssov
В пакете установки компонента есть справка очень понятная, и еще есть примеры на офф форуме

Genics · 19 Фев 2012

Здравствуйте! Вопрос по этой теме.

Для формирования отчетов хочу применить объект DataReport VB 6.0. имеющее инструментальное средство Data Report Designer (Конструктор отчетов). Читал справку вроде все просто, удобно и понятно при работе с источниками и файлами которые там упоминались.
Но мне нужно подключиться к *.db файлу базы данных SQLite. Перепробовал методом тыка разные варианты подключения в конструкторе Data Environment (Окружение данных) результата не получил.
Может он вообще не работает с db файлами SQLite? или я не так подключаю.

madmasles · 19 Фев 2012

Genics,
Вы бы хоть ссылки дали на
Genics [?]

DataReport VB 6.0. имеющее инструментальное средство Data Report Designer (Конструктор отчетов)

Viktor1703 · 19 Фев 2012

<b>Genics</b>, посмотрите тут

Genics · 19 Фев 2012

madmasles
ССЫЛКА ТУТ

Viktor1703
Спасибо конечно, но то что можно работать с бд файлами Access это я понял.
Но мне нужно, чтобы экзешник созданный на Visual Basice (в котором сидит шаблон документа) подключался при запуске скриптом AutoIta к файлу базы данных SQLite *.db. Находил в ней свою таблицу перегонял инфу в шаблон и выводил окно предпросмотра.

Я не знаю какого поставщика данных выбрать и как настроить подключение.

XpycT · 20 Фев 2012

Genics [?]

как настроить подключение

Строку подключения к SQLite *.db можно посмотреть тут Connection strings for SQLite

Кто должен подключаться к SQLite *.db Visual Basice или AutoIt?

Если AutoIt то посмотри в справке _SQLite_Open

Автор темы	Похожие темы	Форум	Ответы	Дата
B	Формирование графика в формулу и получение точки в переменную	Общие вопросы по AutoIt	2	29 Окт 2022
R	Формирование массива из файла txt и запуск по наличию слова в Title	Стол заказов	8	18 Июн 2020
S	Формирование GUI теста по txt	GUI - Графический интерфейс пользователя	16	14 Май 2019
M	Формирование числовой матрицы по картинке jpg	Стол заказов	0	10 Ноя 2017
N	Формирование двумерного массива из файла	Общие вопросы по AutoIt	10	8 Авг 2017

формирование и печать документов-бланков

Новичок

Новичок

Мой Аватар, он лучший самый

Новичок

Скриптер

AutoIT Гуру

Скриптер

Модератор

AutoIT Гуру

Скриптер

Новичок

Осваивающий

Скриптер

Осваивающий

Скриптер

Новичок

Модератор

AutoIT Гуру

Новичок

Скриптер