Helppppp МНЕ !!!!

[Андрей Васюта]

Подскажите, где в VB6 есть генератор отчетов. Я в Excel-е написал некоторые (но в нем уже есть готовый лист) при этом Excel глюки выдает в момент записи информации в LOG. файл. И вот я решил эти отчеты перенести в VB6

[gaidar]

Посмотри о такой замечательной вещи как Crystal Reports. Рекомендую google.com

[TEH3OP]

... посмотреть такой замечательный объект как Printer.
Я, после однодневной тренировки, навошкался с помощью Printer.Print и Printer.Line выделывать оч. едрёные отчёты, которые к тому же они, просто таки со второй космической скоростью, создаются. ;-)

[alibek]

TEH3OP, могу предложить набор классов, которые еще более все упростят
Правда они недоделанные (нет Preview, да и все рисование я хотел на API сделать), но тем не менее работают без сбоев.

[GSerg]

Хм, я выкладывал пример превью на основе rtb Объединим?

[alibek]

Ok

Пример использования:

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

Dim pj As PrintJob, buff As String, I As Long
Set pj = New PrintJob
pj.Clear
Open "test.rpt" For Input As #1
buff = Input(LOF(1), #1)
Close #1
pj.OriginY = 20
pj.OriginX = 20
pj.LoadTextBuffer buff, 20
pj.AddText vbNullString,30,30,"sample"
For I = 1 To pj.CountTextBoxes
  buff = pj.ItemTextBoxes(I).Text
  buff = Replace(S, "<Barcode>", Fix(Rnd*1000))
  pj.ItemTextBoxes(I).Text = buff
Next N
pj.PrintCurrentJob Printer
Printer.EndDoc
Set pj = Nothing


Образец RPT-файла:

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

; Report file for class collection PrintJob

Begin Font Title
  Name = "Arial"
  Charset = 204
  Size = 10
  Bold = True
End Font

Begin Font Barcode
  Name = "EanGnivc"
  Size = 22
End Font

Begin Shape Image
  Rect = (3;3)-(30;10)
  Picture = <LOGO>
End Shape

Begin Shape Textbox
  Rect = (40;3)-(30;7)
  Color = R0 G0 B0
  Font = Title
  AlignX = Right
  AlignY = Bottom
  Text = "Title №: "
  Format = False
End Shape
Begin Shape Textbox
  Rect = (70;3)-(30;7)
  Color = R0 G0 B0
  Font = Title
  AlignX = Center
  AlignY = Bottom
  Text = <Numcode>
  Format = False
End Shape
Begin Shape Line
  Rect = (40;10)-(60;0)
  Color = R0 G0 B0
  LineWidth = 0.5
End Shape
Begin Shape Box
  Rect = (40;11)-(60;8)
  LineWidth = 0.1
  ForeColor = R0 G0 B0
  Outline = False
  BackColor = R224 G224 B224
  Fill = True
End Shape
Begin Shape Textbox
  Rect = (40;11)-(60;8)
  Color = R0 G0 B0
  Font = Barcode
  AlignX = Center
  AlignY = Center
  Text = <Barcode>
  Format = False
End Shape
Begin Shape Textbox
  Rect = (113;14)-(36;5)
  Color = R0 G0 B0
  Font = Title
  AlignX = Center
  AlignY = Bottom
  Text = "Numcode № <Numcode>"
  Format = False
End Shape


[TEH3OP]

TEH3OP, могу предложить набор классов, которые еще более все упростят :)
Правда они недоделанные (нет Preview, да и все рисование я хотел на API сделать), но тем не менее работают без сбоев.

По моему, они только всё усложнят... и замедлят, а у меня БД на мыльён накладных -- мне лишних тормозов не надо.
К тому же, методы Print и Line и т.п. есть у Form, Picturebox и многих других, так что с Preview у меня проблемм нет!

[GSerg]

А моё тут

[alibek]

TEH3OP, навряд ли затормозит, но хозяин - барин.

[Igor_123]

2 alibek я посмотрю, а то проект привстал без превью и печати, пришлось в ворд выбрасывать но в 2003 версии проблемка получилась. Результат верну!

[alibek]

Igor_123, буду очень благодарен
Печать в нем работает относительно нормально (хотя конечно до Word'овского форматирования далеко), а вот превью все некогда было делать -- это часть одного проекта и для проекта превью не так важен, чтобы на него время тратить.