Page numbering

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

   On AutoIt forum some member ask me about page numbering.
Here is example:

Func _QPDF_PageEnumerator(ByRef $oQP, $sFormat = 'Page %d of %d')
	Local $iX = 0
	Local $iY = $__eQPDF_A4_HeightInMM - 30

	Local $iCounter = $oQP.PageCount()
	Local $sText = ''
	Local $iTextWidth = 0

	For $iPage = 1 To $iCounter
		$oQP.SelectPage($iPage)
		$oQP.SetOrigin($__eQPDF_SORIGIN_TopLeft);
		$oQP.SetMeasurementUnits($__eQPDF_MUNITS_Milimeters)
		$sText = StringFormat($sFormat, $iPage, $iCounter)
		$iTextWidth = $oQP.GetTextWidth($sText)
		$iX = $__eQPDF_A4_WidthInMM - $iTextWidth - 10
		$oQP.SetTextSize(5)
		$oQP.DrawText($iX, $iY, $sText)
	Next 
EndFunc   ;==>_QPDF_PageEnumerator

Edited by mLipok - 15 Jun 15 at 2:10AM

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
mLipok Members Profile Find Members Posts Senior Member Joined: 23 Apr 14 Location: Poland, Zabrze Status: Offline Points: 449	Post Options Post Reply Quote mLipok Report Post Thanks(0) Quote Reply Topic: Page numbering Posted: 15 Jun 15 at 2:03AM
	On AutoIt forum some member ask me about page numbering. Here is example: Func _QPDF_PageEnumerator(ByRef $oQP, $sFormat = 'Page %d of %d') Local $iX = 0 Local $iY = $__eQPDF_A4_HeightInMM - 30 Local $iCounter = $oQP.PageCount() Local $sText = '' Local $iTextWidth = 0 For $iPage = 1 To $iCounter $oQP.SelectPage($iPage) $oQP.SetOrigin($__eQPDF_SORIGIN_TopLeft); $oQP.SetMeasurementUnits($__eQPDF_MUNITS_Milimeters) $sText = StringFormat($sFormat, $iPage, $iCounter) $iTextWidth = $oQP.GetTextWidth($sText) $iX = $__eQPDF_A4_WidthInMM - $iTextWidth - 10 $oQP.SetTextSize(5) $oQP.DrawText($iX, $iY, $sText) Next EndFunc ;==>_QPDF_PageEnumerator Edited by mLipok - 15 Jun 15 at 2:10AM
	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