Hi guys, I am expecting some difficults trying to print a canvas. It always prints just the first quarter of the page.
The beggining of my canvas building (pdf is my canvas):
PrintForm.RootPane.RemoveAllNodes
Dim scp As ScrollPane
scp.Initialize("scp")
PrintForm.RootPane.AddNode(scp,0,0,605,870)
Dim p As Pane = scp.InnerNode
p.AddNode(pdf, 0, 0, 605, 3000)
PrintForm.Show
My printing routine:
Dim PA As Paper
PA.Initialize()
PA = Paper_static.A4
Dim PR As Printer = GetPrinter("PDF Architect 4")
Dim PL As PageLayout
PL.Initialize()
PL = PR.CreatePageLayout2(PA, PageOrientation_Static.PORTRAIT, "HARDWARE_MINIMUM")
Dim PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(PR) 'CreatePrinterJob
PJ.PrintPage2(PL, pdf)
PJ.EndJob
Can anybody help me?
The beggining of my canvas building (pdf is my canvas):
PrintForm.RootPane.RemoveAllNodes
Dim scp As ScrollPane
scp.Initialize("scp")
PrintForm.RootPane.AddNode(scp,0,0,605,870)
Dim p As Pane = scp.InnerNode
p.AddNode(pdf, 0, 0, 605, 3000)
PrintForm.Show
My printing routine:
Dim PA As Paper
PA.Initialize()
PA = Paper_static.A4
Dim PR As Printer = GetPrinter("PDF Architect 4")
Dim PL As PageLayout
PL.Initialize()
PL = PR.CreatePageLayout2(PA, PageOrientation_Static.PORTRAIT, "HARDWARE_MINIMUM")
Dim PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(PR) 'CreatePrinterJob
PJ.PrintPage2(PL, pdf)
PJ.EndJob
Can anybody help me?