Hi, a writing an application that needs to print documents based in Coordinates.
I have no problem printing objects in the first page, RenderDirect functions pretty fine,
but when is necessary to add a second page, I can't make it work, the objects are printed in
the first page. How can I use renderdirect to print objects in the 2nd or next page(s)??
This is test i did.
Imports C1.C1Preview
Imports C1.Win.C1Preview
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ResetC1Doc()
c1Doc.AllowNonReflowableDocs = True
c1Doc.StartDoc()
'Print in position 1,1
Dim rRectangulo As New RenderRectangle
rRectangulo.Style.ShapeLine = New LineDef(New Unit(1, UnitTypeEnum.Pixel), Color.Black)
rRectangulo.Rectangle.Height = New Unit(5, UnitTypeEnum.Cm)
rRectangulo.Rectangle.Width = New Unit(10, UnitTypeEnum.Cm)
c1Doc.RenderDirect(1, 1, rRectangulo)
rRectangulo = New RenderRectangle
'Print in position 2,2
rRectangulo.Style.ShapeLine = New LineDef(New Unit(1, UnitTypeEnum.Pixel), Color.Black)
rRectangulo.Rectangle.Height = New Unit(5, UnitTypeEnum.Cm)
rRectangulo.Rectangle.Width = New Unit(10, UnitTypeEnum.Cm)
c1Doc.RenderDirect(2, 2, rRectangulo)
c1Doc.NewPage()
'Trying to print in the next page in position 2,5
rRectangulo = New RenderRectangle
rRectangulo.Style.ShapeLine = New LineDef(New Unit(1, UnitTypeEnum.Pixel), Color.Black)
rRectangulo.Rectangle.Height = New Unit(5, UnitTypeEnum.Cm)
rRectangulo.Rectangle.Width = New Unit(10, UnitTypeEnum.Cm)
c1Doc.RenderDirect(2, 5, rRectangulo) '<=== ????
c1Doc.EndDoc()
c1Doc.Generate()
End Sub
Protected Sub ResetC1Doc()
c1Doc.Clear()
c1Doc.DefaultUnit = C1.C1Preview.UnitTypeEnum.Cm
c1Doc.PageLayout.PageSettings.TopMargin = New C1.C1Preview.Unit(0, C1.C1Preview.UnitTypeEnum.Cm)
c1Doc.PageLayout.PageSettings.BottomMargin = New C1.C1Preview.Unit(0, C1.C1Preview.UnitTypeEnum.Cm)
c1Doc.PageLayout.PageSettings.LeftMargin = New C1.C1Preview.Unit(0, C1.C1Preview.UnitTypeEnum.Cm)
c1Doc.PageLayout.PageSettings.RightMargin = New C1.C1Preview.Unit(0, C1.C1Preview.UnitTypeEnum.Cm)
End Sub
End Class
Thanks in advance!!
PS: The version is C1.C1Preview.C1PrintDocument, C1.C1Preview.2, Version=2.0.20071.41114