Quick PDF: Print Multiple Pages

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi there
This is my first post, so I hope to include all needed information :-)

I'm looking for a code sample to print 2 or 4 pages on 1 sheet. In my Windows printer setting I'm able to setup the print that way. But in the debenu functions I don't find any "option" to do that.

Is there an option already to print multiple pages on a sheet, or is there a code sample for that functionality?

Thanks a lot for support.

Bye
Michele

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
tedescomicchi Members Profile Find Members Posts Beginner Joined: 16 Feb 15 Location: Solothurn Status: Offline Points: 3	Post Options Post Reply Quote tedescomicchi Report Post Thanks(0) Quote Reply Topic: Quick PDF: Print Multiple Pages Posted: 16 Feb 15 at 9:58AM
	Hi there This is my first post, so I hope to include all needed information :-) I'm looking for a code sample to print 2 or 4 pages on 1 sheet. In my Windows printer setting I'm able to setup the print that way. But in the debenu functions I don't find any "option" to do that. Is there an option already to print multiple pages on a sheet, or is there a code sample for that functionality? Thanks a lot for support. Bye Michele

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 16 Feb 15 at 10:43AM
	Hi Michele, PrintOptions and SetupCustomPrinter doesn't offer these properties so far. What you can do is creating an empty working pdf and put four original pages with 4 x smaller dimensions to any new page. This you can do with the library. Cheers and welcome here, Ingo
	Cheers, Ingo

tedescomicchi Members Profile Find Members Posts Beginner Joined: 16 Feb 15 Location: Solothurn Status: Offline Points: 3	Post Options Post Reply Quote tedescomicchi Report Post Thanks(0) Quote Reply Posted: 16 Feb 15 at 1:10PM
	Ciao Ingo thaaank you a lot for your answer! Do you have a code sample how to minimize a page and how to put it on a new sheet? ;-) Thanks again!

mLipok Members Profile Find Members Posts Senior Member Joined: 23 Apr 14 Location: Poland, Zabrze Status: Offline Points: 453	Post Options Post Reply Quote mLipok Report Post Thanks(0) Quote Reply Posted: 17 Feb 15 at 8:18AM
	this is not exactly what you want (it shows only how to 2 in 1 ) but I think it can by helpful for you: Func _QP_Page_2in1(ByRef $oQP, $bAddSplitter = False) Local $iOrginalPageCount = $oQP.PageCount() Local $iNewPageCounter = 0 Local $bNewPageHaveDrawedTopOfPage = False ; 1 = true , 0 = false Local $iID_CapturedPage If $iOrginalPageCount > 1 Then For $iCurrentPage = 1 To $iOrginalPageCount If Not $bNewPageHaveDrawedTopOfPage Then $oQP.NewPage() $iNewPageCounter += 1 $oQP.MovePage($iNewPageCounter) $oQP.SetPageSize('A4') If $bAddSplitter Then $oQP.SetLineWidth(1) $oQP.SetLineColor(1, 0, 0) $oQP.SetMeasurementUnits($__eQPDF_MUNITS_Milimeters) $oQP.DrawLine(0, $__eQPDF_A4_HeightInMM / 2, $__eQPDF_A4_WidthInMM, $__eQPDF_A4_HeightInMM / 2) EndIf EndIf $iID_CapturedPage = $oQP.CapturePage($iNewPageCounter + 1) ; select Page to which you want Insert content - Draw Captutred Page $oQP.SelectPage($iNewPageCounter) If Not $bNewPageHaveDrawedTopOfPage Then ; draw on top of page $oQP.DrawRotatedCapturedPage($iID_CapturedPage, 0, _ $__eQPDF_A4_HeightInMM, _ $__eQPDF_A4_HeightInMM / 2, $__eQPDF_A4_WidthInMM, 270) $bNewPageHaveDrawedTopOfPage = True Else ; draw on bootom of page $oQP.DrawRotatedCapturedPage($iID_CapturedPage, 0, _ $__eQPDF_A4_HeightInMM / 2, _ $__eQPDF_A4_HeightInMM / 2, $__eQPDF_A4_WidthInMM, 270) $bNewPageHaveDrawedTopOfPage = False EndIf Next EndIf EndFunc ;==>_QP_Page_2in1 Edited by mLipok - 17 Feb 15 at 8:22AM
	Here you can find description how to test my examples: http://www.quickpdf.org/forum/forum_posts.asp?TID=2932&PID=12600&title=drawcapturedpagematrix-matrix-howto#12600