Создание отчетов

[Тимофей]

В какой форме лучше представить информацию для предварительного просмотра, а затем и печати в виде таблиц. Таблицы существуют в виде отдельных шаблонов, которые нужно заполнять массивом данных (данные, не обязательно из базы данных). Желательно редактирование таблицы при предварительном просмотре (удаление части строк и т.д.) Метод Prtint не предлагать. Сirstal Report тоже насколько мне известно работает только с данными базы данных. Какие еще есть варианты создания отчетов.

[Andrey Fedorov]

Можно взять любой Grid с возможностью Preview/Print, выводить в него информацию из твоих табличек, редактировать и пускай он-же ее и печатает. По крайней мере это самый простой способ (тем более с редактированием/удалением строк).

Возможностями Preview/Print обладает, к примеру, Janus GridEx.

Есть и у каких-то других... На память точно не скажу.

Сirstal Report тоже насколько мне известно работает только с данными базы данных.

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

[Ennor]

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

[Andrey Fedorov]

Но денег он стоит...

Да, большинство хороших компонентов стоят деньги. Все-же за спасибо мало добровольцев подобные продукты производить...

Но для серъезного продукта можно купить, а для остальных - взять диск на рынке...

[PATRIOT_kz]

Просто внедри в форму 'Grid' контрол.

И многие спрашивают "как сделать пред.просмотр печати". Отвечаю.
Делаете снимок HWND элемента 'Grid' контрола. Вот код для снимка:
следующий код закинь в модуль и назови его к примеру "cap.bas"

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

Option Explicit
Option Base 0
Private Type PALETTEENTRY
    peRed   As Byte
    peGreen As Byte
    peBlue  As Byte
    peFlags As Byte
End Type
Private Type LOGPALETTE
    palVersion       As Integer
    palNumEntries    As Integer
    palPalEntry(256) As PALETTEENTRY  ' Enough for 256 colors
End Type
Private Type GUID
    Data1    As Long
    Data2    As Integer
    Data3    As Integer
    Data4(7) As Byte
End Type
Private Type RECT
    Left   As Long
    Top    As Long
    Right  As Long
    Bottom As Long
End Type
Private Type PicBmp
    Size As Long
    Type As Long
    hBmp As Long
    hPal As Long
    Reserved As Long
End Type
Private Const RASTERCAPS As Long = 38
Private Const RC_PALETTE As Long = &H100
Private Const SIZEPALETTE As Long = 104
Private Declare Function CreateCompatibleBitmap Lib "gdi32" ( _
    ByVal hdc As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" ( _
    ByVal hdc As Long, ByVal iCapabilitiy As Long) As Long
Private Declare Function GetSystemPaletteEntries Lib "gdi32" ( _
    ByVal hdc As Long, ByVal wStartIndex As Long, _
    ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) _
    As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" ( _
    ByVal hdc As Long) As Long
Private Declare Function CreatePalette Lib "gdi32" ( _
    lpLogPalette As LOGPALETTE) As Long
Private Declare Function SelectPalette Lib "gdi32" ( _
    ByVal hdc As Long, ByVal hPalette As Long, _
    ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" ( _
    ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" ( _
    ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" ( _
    ByVal hDCDest As Long, ByVal XDest As Long, _
    ByVal YDest As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal hDCSrc As Long, _
    ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) _
    As Long
Private Declare Function GetWindowDC Lib "user32" ( _
    ByVal hwnd As Long) As Long
Private Declare Function GetDC Lib "user32" ( _
    ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" ( _
    ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" ( _
    ByVal hdc As Long) As Long
Private Declare Function GetWindowRect Lib "user32" ( _
    ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function OleCreatePictureIndirect _
    Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, _
    ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Public Function CreateBitmapPicture(ByVal hBmp As Long, _
        ByVal hPal As Long) As Picture
On Error Resume Next
Dim R   As Long
Dim Pic As PicBmp
Dim IPic          As IPicture
Dim IID_IDispatch As GUID
With IID_IDispatch
    .Data1 = &H20400
    .Data4(0) = &HC0
    .Data4(7) = &H46
End With
With Pic
    .Size = Len(Pic)          ' Length of structure
    .Type = vbPicTypeBitmap   ' Type of Picture (bitmap)
    .hBmp = hBmp              ' Handle to bitmap
    .hPal = hPal              ' Handle to palette (may be null)
End With
R = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
Set CreateBitmapPicture = IPic
End Function
Public Function CaptureWindow(ByVal hWndSrc As Long, _
    ByVal bClient As Boolean, ByVal LeftSrc As Long, _
    ByVal TopSrc As Long, ByVal WidthSrc As Long, _
    ByVal HeightSrc As Long) As Picture

Dim hDCMemory       As Long
Dim hBmp            As Long
Dim hBmpPrev        As Long
Dim R               As Long
Dim hDCSrc          As Long
Dim hPal            As Long
Dim hPalPrev        As Long
Dim RasterCapsScrn  As Long
Dim HasPaletteScrn  As Long
Dim PaletteSizeScrn As Long
Dim LogPal          As LOGPALETTE
If bClient Then
    hDCSrc = GetDC(hWndSrc)       'Get DC for Client area.
Else
    hDCSrc = GetWindowDC(hWndSrc) 'Get DC for entire window.
End If
hDCMemory = CreateCompatibleDC(hDCSrc)
hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)
hBmpPrev = SelectObject(hDCMemory, hBmp)
RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS)   'Raster capabilities
HasPaletteScrn = RasterCapsScrn And RC_PALETTE       'Palette support
PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) 'Palette size
If HasPaletteScrn And (PaletteSizeScrn = 256) Then
    LogPal.palVersion = &H300
    LogPal.palNumEntries = 256
    R = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
    hPal = CreatePalette(LogPal)
    hPalPrev = SelectPalette(hDCMemory, hPal, 0)
    R = RealizePalette(hDCMemory)
End If
R = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, _
    LeftSrc, TopSrc, vbSrcCopy)
hBmp = SelectObject(hDCMemory, hBmpPrev)
If HasPaletteScrn And (PaletteSizeScrn = 256) Then
    hPal = SelectPalette(hDCMemory, hPalPrev, 0)
End If
R = DeleteDC(hDCMemory)
R = ReleaseDC(hWndSrc, hDCSrc)
Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)
End Function

Public Function CaptureScreen() As Picture
Dim hWndScreen As Long
hWndScreen = GetDesktopWindow()
With Screen
    Set CaptureScreen = CaptureWindow(hWndScreen, False, 0, 0, _
            .Width \ .TwipsPerPixelX, .Height \ .TwipsPerPixelY)
End With
End Function

Public Function CaptureForm(frm As Form) As Picture
With frm
    Set CaptureForm = CaptureWindow(.hwnd, False, 0, 0, _
            .ScaleX(.Width, vbTwips, vbPixels), _
            .ScaleY(.Height, vbTwips, vbPixels))
End With
End Function

Public Function CaptureClient(frm As Form) As Picture
With frm
    Set CaptureClient = CaptureWindow(.hwnd, True, 0, 0, _
            .ScaleX(.ScaleWidth, .ScaleMode, vbPixels), _
            .ScaleY(.ScaleHeight, .ScaleMode, vbPixels))
End With
End Function

Public Function CaptureActiveWindow() As Picture
Dim hWndActive As Long
Dim RectActive As RECT
hWndActive = GetForegroundWindow()
Call GetWindowRect(hWndActive, RectActive)
With RectActive
    Set CaptureActiveWindow = CaptureWindow(hWndActive, False, 0, 0, _
            .Right - .Left, .Bottom - .Top)
End With
End Function

Public Sub PrintPictureToFitPage(Prn As Printer, Pic As Picture)
Dim PicRatio     As Double
Dim PrnWidth     As Double
Dim PrnHeight    As Double
Dim PrnRatio     As Double
Dim PrnPicWidth  As Double
Dim PrnPicHeight As Double
Const vbHiMetric As Integer = 8
If Pic.Height >= Pic.Width Then
    Prn.Orientation = vbPRORPortrait   'Taller than wide
Else
    Prn.Orientation = vbPRORLandscape  'Wider than tall
End If
PicRatio = Pic.Width / Pic.Height
With Prn
    PrnWidth = .ScaleX(.ScaleWidth, .ScaleMode, vbHiMetric)
    PrnHeight = .ScaleY(.ScaleHeight, .ScaleMode, vbHiMetric)
End With
PrnRatio = PrnWidth / PrnHeight
If PicRatio >= PrnRatio Then
    PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode)
    PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, Prn.ScaleMode)
Else
    PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode)
    PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, Prn.ScaleMode)
End If
Call Prn.PaintPicture(Pic, 0, 0, PrnPicWidth, PrnPicHeight)
End Sub


[alibek]

Вах...
А если размер грида такой, что не умещается на один экран?

[kazah_]

а в делфи удобнее как то...

[Andrey Fedorov]

А при чем тут Делфи?
Там все аналогично.

[alibek]

Да нет, в Делфи с отчетами гораздо проще. Частично и потому, что под Делфи целая куча всяких репортов, платных и бесплатных, хороших и очень хороших.

[Andrey Fedorov]

А это не отчет - по определению. Это Grid. Отчеты не редактируются, а ему хочется редактировать...

И под VB всяческих компонентов полно. Никто не говорил что их мало...

[alibek]

Э... Тогда Excel

[Andrey Fedorov]

Э... Тогда Excel

Да ладно - там ограничение на кол-во строк есть

Вообще можно делать как угодно - отредактировать в Grid-e и распечатать в нем-же или выдать на печать через какой нибудь генератор отчетов - все от фантазии и желания только зависит...

[Тимофей]

Exel не совсем тоже хорошо. Возникнут проблемы с пользователями. У одного 97 стоит у друго XP, а у третьего вообще нет (всякое может быть). Это будет некоторым ограничением на использование.
Кроме того таблицы сложные, т.е. не просто колонки со столбцами. А с объединением строки т.д.
С использованием Grid тоже проблема его - же невозможно редактировать.
Есть вариант использовать RichTextBox с шрифтом Terminal (только он отображает псевдографику), но там возникает проблема печати текста русскими буквами и распечатки на струных и лазерных принтерах (отсутствует поддержка DOS печати в полном объеме). Хотя это реализовано в редакторе Bred2 написанном в Делфи на API функциях.
Имеется исходник этого редактора. Если надо выложу. Можно его поковырять. И сделать все-таки полноценный построитель отчетов под VB.

[alibek]

Нет, исходников BRED2 не надо, это и правда Бред
Есть такая штука (компонент) Microsoft Office XP Components. Правда они больше заточены под использование в Web, но можно использовать и в формах. Причем, MS утверждает, что это вещи самодостаточные и что для их работы не требуется установленный офис.

[Тимофей]

Bred не бред, хотя реализованно все достаточно корректно, путем долгих поисков в интернете я еще не встречал текстовых редакторов с такой реализацией работы с псевдографикой и текстами под DOS в части отображения и печати.
А вот про компонент Microsoft Office XP Components можно ли поподробней, насколько я понял он входит в Office XP, как его использовать ?

[marvan]

пользуйтесь WebBrowser (Microsoft Internet Controls)
1 - неограниченные возможности по оформлению отчета (html+css)
2 - редактирование - легко (dhtml)
3 - печать и сохранение в файл
4 - бесплатен и стоит на любом win* пк

[Andrey Fedorov]

С использованием Grid тоже проблема его - же невозможно редактировать.

С чего-бы? Хотя смотря как редактировать... Изменить значения в колонках и удалить/добавить строки как правило с любым Grid-ом без проблем можно.

Есть вариант использовать RichTextBox с шрифтом Terminal (только он отображает псевдографику), но там возникает проблема печати текста русскими буквами и распечатки на струных и лазерных принтерах (отсутствует поддержка DOS печати в полном объеме).

Ну, допустим Terminal пропорциональный шрифт, так что им табличку рисовать затруднительно. Надо пользовать Courier New - псевдографика есть и там (см его уенкодную часть). Только вот чтобы заполнить его придется поразбираться - как вариант - просто подсовывать ему уже сформированный TextRTF.

но там возникает проблема печати текста русскими буквами и распечатки на струных и лазерных принтерах (отсутствует поддержка DOS печати в полном объеме).

Да ладно... При желании всегда можно его (выполнив определенную перекодировку) сохранить как DOS-овский файл и потом уже его печатать на каком угодно старье...

[tyomitch]

Ну, допустим Terminal пропорциональный шрифт, так что им табличку рисовать затруднительно. Надо пользовать Courier New - псевдографика есть и там (см его уенкодную часть).

1 - неправда
2 - так она и в Lucida Sans Console есть, например, чем же тогда курьер лучше?

[Тимофей]

Как раз в Terminale псведографика представлена в наилучшем виде.
В Courier New она упрощена в виде черточек, что смотрится не совсем.
Предложения по созданию отчета поэтому и прозвучало, т.к. надо обойти как раз этот момент, что бы сохранять файл как DOS и печатать на каком нибудь старье. А печатать сразу нормально.
Возможно - и вроде это и есть в Bred, в обычном RtfEdit применяется логический шрифт. Только вот как это сделать ? Вопрос кстати уже я поднимал в форуме. Но ответа так и не получил.

[Andrey Fedorov]

1 - неправда

А на скриншоте в приложенном файле - я его фотошоп-ом нарисовал???

2 - так она и в Lucida Sans Console есть, например, чем же тогда курьер лучше?

Да ничем. Но оба они лучше чем Terminal.

А вообще, на мой взгляд, изначальная постановка задачи дюже навороченна (до потери смысла) - надо вначале ее приводить в порядок...

[Andrey Fedorov]

Как раз в Terminale псведографика представлена в наилучшем виде.

Гы! Открой Word и попробуй "нарисовать" табличку терминалом...
Та-же псевдографика есть и в Arial-е, но рисовать что либо пропорциональными шрифтами довольно затруднительно...

В Courier New она упрощена в виде черточек, что смотрится не совсем.

Скриншот я уже выслал.

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

Ну и где проблема-то? Формируй DOS-овский текстовый файл.

Кстати, какое-нибудь старье сейчас уже довольно сложно отыскать - где ты его берешь-то?

[Тимофей]

1 - неправда

А на скриншоте в приложенном файле - я его фотошоп-ом нарисовал???

2 - так она и в Lucida Sans Console есть, например, чем же тогда курьер лучше?

Да ничем. Но оба они лучше чем Terminal.

А вообще, на мой взгляд, изначальная постановка задачи дюже навороченна (до потери смысла) - надо вначале ее приводить в порядок...

Давай приведем в порядок.
1. Нужно создать отчет.
2. Имеется большой массив чисел, получаемых в результате расчета (не обязательно из БД).
3. Этот массив нужно распихать по полям таблиц.
4. Таблиц в отчете несколько, причем некоторые из них могут не заполняться вообще. Отсюда и необходимость коррекции. Зачем печатать пустые таблицы ?
5. На диске храниться пустой шаблон таблицы в виде файла. Там же храниться файл индексов (адреса куда нужно вставить).
6. Считывается файл-шаблон и файл-массив индексов.
7. Затем переменные расставляются по своим местам в строковой переменной (шаблоне).
8. Затем эта переменная передается в RichTextBox co шрифтом Terminal.
9. Далее это нужно подкорректировать и распечатать или сохранить в файл.
10. Вот как раз с печатью и проблемы.

Если нужно кину пример.

[Тимофей]

<Ну и где проблема-то? Формируй DOS-овский текстовый файл.

<Кстати, какое-нибудь старье сейчас уже довольно сложно отыскать - <где ты его берешь-то?

Вот так и приходится делать.
Сохранять как DOS и печатать через Bred на лазернике.
И кстати у нас еще Star-LC15 стоит матричный, хотя контора не бедная (АО-энерго).
А хотелось печатать прямо из программы - вот в чем проблема.

[Andrey Fedorov]

10. Вот как раз с печатью и проблемы.

И только? Еще во времена 2-го Access-a я печатал просто выводя в порт принтера - без проблем. Принтера в те годы были... уже не помню как это называлось - с литерами, "Консулы". Даже матричных у нас еще в те годы просто не было.

С RichTextBox-a ты можешь спокойно взять его Text.
Потом тебе просто нужно будет преобразовать его строку в OEM-кодировку. Возможно CharToOem не сработает верно (ибо ты пользуешь псевдографику) а может и сработает - я просто ни разу не пробовал, поэтому точно не скажу (попробуй сам). Но и тут проблемы нет - написать свою функцию преобразования кодировки довольно просто.

Ну и запишешь эту строку в DOS-овский файл. Или сразу на принтер...

[Andrey Fedorov]

И забудь про Terminal - этот фонт тебе просто не подойдет - он ПРОПОРЦИОНАЛЬНЫЙ.

[Andrey Fedorov]

Вот так и приходится делать.
Сохранять как DOS и печатать через Bred на лазернике.

А что мешает напечатать сразу на лазернике???
Притом нормальный отчет, а не RichTextBox?

[tyomitch]

1 - неправда

А на скриншоте в приложенном файле - я его фотошоп-ом нарисовал???

Дык там курьер, а обсуждаем терминал.

2 - так она и в Lucida Sans Console есть, например, чем же тогда курьер лучше?

Да ничем. Но оба они лучше чем Terminal.

Чем лучше-то?

И забудь про Terminal - этот фонт тебе просто не подойдет - он ПРОПОРЦИОНАЛЬНЫЙ.

Вот именно про это я и говорил, что это неправда. Открой тот же charmap и убедись.

[tyomitch]

Как раз в Terminale псведографика представлена в наилучшем виде.

Гы! Открой Word и попробуй "нарисовать" табличку терминалом...
Та-же псевдографика есть и в Arial-е, но рисовать что либо пропорциональными шрифтами довольно затруднительно...

Мне Ворд не позволил выбрать не-TrueType шрифт - поэтому вот как "табличка" выглядит в Блокноте.
http://mix.web.ur.ru/2.png

[Тимофей]

Вот держите пример. Данные для простоты не вставляю.
Кстати CharToOem псевдографику не преобразует, уже пробовал, она только преобразует буквы и цифры.

[Andrey Fedorov]

Вот именно про это я и говорил, что это неправда. Открой тот же charmap и убедись.

Ну может тут я все-же протормозил - все-же давно его не пользовал...

Чем лучше-то?

А ты в блокноте набери русское слово используя терминал - хотя бы этим...