Печать на бланке

[GSerg]

Nord777, покажи таки код печати фактического визуального содержимого некоего контрола на Graphics принтера с разрешением принтера (а не экрана).

[asharky]

А напечатать и отрендерить чем отличается? Как это ты понимаешь?

Я так понимаю, что у любого графического изображения (формы) есть такой параметр как dpi (количество точек на линейный дюйм). И если для качественного отображения этого рисунка на экране монитора вполне годится 96 точек на дюйм, то для печати на листе бумаги этот параметр должен составлять от 300 dpi. И если мы хотим сохранить линейные размеры печатаемого рисунка, то простым изменением параметра dpi мы ничего достичь не сможем - преобразование будет осуществляться по какому-либо апроксимирующему закону, но непременно возникнут искажения. А выведя на печать исходный (96dpi) рисунок с разрешением, например, 600dpi, и не преобразуя никак количество пикселей, а значит не внося искажениы в исходник, мы его банально уменьшим в 600/96=6.25 раза.

1. Рендеринг контрола - это получение объекта класса Graphics из него. Искользуем метод <object>.GreateGraphics()
2. "Напечатать" это: вывести графический объект на печать на принтер.

[Nord777]

Nord777, покажи таки код печати фактического визуального содержимого некоего контрола на Graphics принтера с разрешением принтера (а не экрана).

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

Public Class Form1
    Dim BtnBounds() As PointF
    Dim FntSize() As PointF

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Using G As Graphics = Me.CreateGraphics
            BtnBounds = New PointF() _
            { _
            New PointF(Button1.Bounds.X, Button1.Bounds.Y), _
            New PointF(Button1.Bounds.Width, Button1.Bounds.Height) _
            }

            FntSize = New PointF() {New PointF(Button1.Font.Size, 0)}

            'Преобразуем координаты Button1 из пикселей в миллиметры
            G.PageUnit = GraphicsUnit.Millimeter
            G.TransformPoints(Drawing2D.CoordinateSpace.Page, Drawing2D.CoordinateSpace.Device, BtnBounds)
        End Using
       
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        'преобразовать из миллиметров в с систему координат принтера
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        e.Graphics.TransformPoints(Drawing2D.CoordinateSpace.Device, Drawing2D.CoordinateSpace.Page, BtnBounds)

        'преобразовать из поинтов в с систему координат принтера
        e.Graphics.PageUnit = GraphicsUnit.Point
        e.Graphics.TransformPoints(Drawing2D.CoordinateSpace.Device, Drawing2D.CoordinateSpace.Page, FntSize)


        Dim R As New Rectangle(BtnBounds(0).X, BtnBounds(0).Y, BtnBounds(1).X, BtnBounds(1).Y)
        Dim Fnt As New Font(Button1.Font.FontFamily, FntSize(0).X, FontStyle.Regular)

        ButtonRenderer.DrawButton(e.Graphics, R, Button1.Text, Fnt, False, VisualStyles.PushButtonState.Normal)

    End Sub
End Class

[GSerg]

ButtonRenderer.DrawButton

А чего самый простой пример?
Нарисуй листбокс, текстбокс нарисуй, нарисуй листвью... Причём именно так, как они в настоящий момент выглядят в программе (то же состояние прокрутки etc).

[Nord777]

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

- согласен

И если для качественного отображения этого рисунка на экране монитора вполне годится 96 точек на дюйм, то для печати на листе бумаги этот параметр должен составлять от 300 dpi.

- согласен

И если мы хотим сохранить линейные размеры печатаемого рисунка, то простым изменением параметра dpi мы ничего достичь не сможем - преобразование будет осуществляться по какому-либо апроксимирующему закону, но непременно возникнут искажения. А выведя на печать исходный (96dpi) рисунок с разрешением, например, 600dpi, и не преобразуя никак количество пикселей, а значит не внося искажениы в исходник, мы его банально уменьшим в 600/96=6.25 раза.

- тоже согласен

Единственное чего ты так до сих пор не понял, так это то, что контролы рисуются виндой не с помощью DrawImage

[Nord777]

GSerg
Это более геморно, но тоже реализуемо.
Напрашивается вопрос - а на фиг это надо?

[GSerg]

Потому что всё это может встречаться на форме.

И поэтому правильно делть отчёты средствами создания отчётов, а не через... хм... альтернативные варианты.

А ListView не нарисуешь, у тебя ListViewRenderer нет... и листбокс тоже... И не только их.

[Nord777]

По твоему получается что и форму нарисовать нельзя, однако это не так.
VisualStyleRenderer Class - он это реализует (не проверял, но скорее всего рисует все контролы)

И поэтому правильно делать отчёты средствами создания отчётов, а не через... хм... альтернативные варианты

Я с тобой полностью согласен и не понимаю почему автор так уперся в печать контролов на форме

[asharky]

И поэтому правильно делать отчёты средствами создания отчётов, а не через... хм... альтернативные варианты

Я извиняюсь, но не подскажет кто-либо возможно-ли делать "отчеты" средствами VB Express ? У меня нет другого инструмента.

Опять же без кода - да, или нет. Я постараюсь сам разобраться и не задавать лишних вопросов.

Я с тобой полностью согласен и не понимаю почему автор так уперся в печать контролов на форме

Если под "автором" подразумевают не vit.b, который начал эту тему, а меня, то причина проста: я пока начинающий пользователь и делаю то, что мне проще. "Отчеты" - тёмный лес для меня, увы.

...Единственное чего ты так до сих пор не понял, так это то, что контролы рисуются виндой не с помощью DrawImage

Бесспорно. Для того я и пришел сюда поучиться у старших и доброжелательных товарищей.

[GSerg]

Я извиняюсь, но не подскажет кто-либо возможно-ли делать "отчеты" средствами VB Express ? У меня нет другого инструмента.

Ну дык http://bbs.vbstreets.ru/viewtopic.php?p=6660156#6660156 ?

[asharky]

Я извиняюсь, но не подскажет кто-либо возможно-ли делать "отчеты" средствами VB Express ? У меня нет другого инструмента.

Ну дык http://bbs.vbstreets.ru/viewtopic.php?p=6660156#6660156 ?

Спасибо ещё раз

Мне вот это http://www.gotreportviewer.com/ может оказаться полезным в данной ситуации?

[asharky]

Мне вот это http://www.gotreportviewer.com/ может оказаться полезным в данной ситуации?

Вопрос снят. Подходит. Полезная штука...

[asharky]

Мне вот это http://www.gotreportviewer.com/ может оказаться полезным в данной ситуации?

Вопрос снят. Подходит. Полезная штука...

Всё хорошо, только вот на версию Express ReportViewer встаёт только на Visual Web Developer. А на Basic коряво - нет графического редактора rdlc файлов.

Вопрос:

1. Если вот тут покупать Visual Studio Pro : http://www.quarta.ru/Pages/article.aspx ... 85&cPage=1 - это "правильное" место для таких покупок?
2. Может существует в природе визуальный free редактор файлов .rdlc ?

[asharky]

И ти-ши-на.....

[asharky]

Вэйк Ап

А в фоновом режиме как отчеты печатать?