Draws the page to the printer.

Syntax

Visual Basic (Declaration)
Public ReadOnly Property Graphics As Graphics

Visual Basic (Usage)	Copy Code
`Dim instance As SystemPrinter Dim value As Graphics value = instance.Graphics`

C#
public Graphics Graphics {get;}

Example

C# Copy Code

C#	Copy Code
using DataDynamics.ActiveReports.Interop; rpt rpt = new rpt(); private void Form1_Load(object sender, System.EventArgs e) { rpt.Run(); this.Viewer1.Document = rpt.Document; arPrint(); } private void arPrint() { DataDynamics.ActiveReports.Document.Page aPage = new DataDynamics.ActiveReports.Document.Page(); DataDynamics.ActiveReports.Interop.SystemPrinter m_myARPrinter = new DataDynamics.ActiveReports.Interop.SystemPrinter(); m_myARPrinter.StartJob("Test Printer"); //Replace "Test Printer" with the name of your printer System.Drawing.RectangleF recPage = RectangleF.Empty; int nCount = rpt.Document.Pages.Count; m_myARPrinter.StartPage(); for(int i=0; i < nCount; i++) { aPage = rpt.Document.Pages[i]; m_myARPrinter.Graphics.PageUnit = System.Drawing.GraphicsUnit.Pixel; aPage.Units = DataDynamics.ActiveReports.Document.Units.Pixels; recPage.Width = aPage.Width; recPage.Height = aPage.Height; aPage.Draw(m_myARPrinter.Graphics, recPage); m_myARPrinter.EndPage(); } m_myARPrinter.EndJob(); }

using DataDynamics.ActiveReports.Interop;



rpt rpt = new rpt();
private void
Form1_Load(object sender, System.EventArgs e)

{

   rpt.Run();

   this.Viewer1.Document = rpt.Document;

   arPrint();

}


private void arPrint()

{

   DataDynamics.ActiveReports.Document.Page aPage = new DataDynamics.ActiveReports.Document.Page();

   DataDynamics.ActiveReports.Interop.SystemPrinter m_myARPrinter = new DataDynamics.ActiveReports.Interop.SystemPrinter();     

   m_myARPrinter.StartJob("Test Printer"); //Replace "Test
Printer" with the name of your printer

   System.Drawing.RectangleF recPage = RectangleF.Empty;

   int nCount = rpt.Document.Pages.Count;     

   m_myARPrinter.StartPage();     

   for(int i=0; i < nCount; i++)
    

   {         

       aPage = rpt.Document.Pages[i];         

       m_myARPrinter.Graphics.PageUnit = System.Drawing.GraphicsUnit.Pixel;

       aPage.Units = DataDynamics.ActiveReports.Document.Units.Pixels;

       recPage.Width = aPage.Width;

       recPage.Height = aPage.Height;

       aPage.Draw(m_myARPrinter.Graphics, recPage);

       m_myARPrinter.EndPage();

   }     

            

   m_myARPrinter.EndJob();

}

Visual Basic Copy Code

Visual Basic	Copy Code
Imports DataDynamics.ActiveReports.Interop Dim rpt As New rpt() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load rpt.Run() Me.Viewer1.Document = rpt.Document arPrint() End Sub Private Sub arPrint() Dim aPage As New DataDynamics.ActiveReports.Document.Page() Dim m_myARPrinter As New DataDynamics.ActiveReports.Interop.SystemPrinter() m_myARPrinter.StartJob("Test Printer") 'Replace "Test Printer" with the name of your printer Dim recPage As New System.Drawing.RectangleF() Dim nCount As Integer = rpt.Document.Pages.Count m_myARPrinter.StartPage() For i As Integer = 0 To nCount - 1 aPage = rpt.Document.Pages(i) m_myARPrinter.Graphics.PageUnit = System.Drawing.GraphicsUnit.Pixel aPage.Units = DataDynamics.ActiveReports.Document.Units.Pixels recPage.Width = aPage.Width recPage.Height = aPage.Height aPage.Draw(m_myARPrinter.Graphics, recPage) m_myArPrinter.EndPage() Next m_myARPrinter.EndJob() End Sub

Imports DataDynamics.ActiveReports.Interop



Dim rpt As New rpt()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    rpt.Run()

    Me.Viewer1.Document = rpt.Document

    arPrint()

End Sub



Private Sub arPrint()

    Dim aPage As New DataDynamics.ActiveReports.Document.Page()

    Dim m_myARPrinter As New DataDynamics.ActiveReports.Interop.SystemPrinter()

    m_myARPrinter.StartJob("Test Printer") 'Replace "Test Printer" with the name of your printer

    Dim recPage As New System.Drawing.RectangleF()

    Dim nCount As Integer = rpt.Document.Pages.Count

    m_myARPrinter.StartPage()

    For i As Integer = 0 To nCount - 1

        aPage = rpt.Document.Pages(i)

        m_myARPrinter.Graphics.PageUnit = System.Drawing.GraphicsUnit.Pixel

        aPage.Units = DataDynamics.ActiveReports.Document.Units.Pixels

        recPage.Width = aPage.Width

        recPage.Height = aPage.Height

        aPage.Draw(m_myARPrinter.Graphics, recPage)

        m_myArPrinter.EndPage()

    Next



        m_myARPrinter.EndJob()

End Sub

Remarks

This property is valid only after the StartJob event is called.

ActiveReports.Interop	Request technical support
Graphics Property
See Also Example

Syntax

Example

Remarks

See Also

Reference