Print Landscape

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

   Hello,
With this code i can print a pdf , but it is in landscape.

Now is print a half document , what do i change in the code to print landscape?

 This function prints a document

        ' Setup general parameters
        Dim fileName As String = "C:\VTS\Hello.pdf"

        ' Load the document that you want to print into memory
        Dim docID As Integer = QP.LoadFromFile(fileName, "")

        ' Set the paramters for the PrintDocument function
        Dim PrinterName As String = QP.GetDefaultPrinterName()
        Dim StartPage As Integer = 1
        ' Set first page number
        Dim EndPage As Integer = QP.PageCount()
        ' Set last page number
        ' Set the paramters for the PrintOptions function
        Dim PageScaling As Integer = 0
        Dim AutoRotateCenter As Integer = 0
        Dim Title As String = fileName

        ' Assign the options for printing to an int variable
        Dim Options As Integer = QP.PrintOptions(PageScaling, AutoRotateCenter, Title)

        ' Print the document with the required paramters and options specified
        QP.PrintDocument(PrinterName, StartPage, EndPage, Options)

        ' Remove document from memory
        QP.RemoveDocument(docID)

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
BASSIES Members Profile Find Members Posts Beginner Joined: 15 Aug 13 Status: Offline Points: 11	Post Options Post Reply Quote BASSIES Report Post Thanks(0) Quote Reply Topic: Print Landscape Posted: 15 Aug 13 at 12:59PM
	Hello, With this code i can print a pdf , but it is in landscape. Now is print a half document , what do i change in the code to print landscape? This function prints a document ' Setup general parameters Dim fileName As String = "C:\VTS\Hello.pdf" ' Load the document that you want to print into memory Dim docID As Integer = QP.LoadFromFile(fileName, "") ' Set the paramters for the PrintDocument function Dim PrinterName As String = QP.GetDefaultPrinterName() Dim StartPage As Integer = 1 ' Set first page number Dim EndPage As Integer = QP.PageCount() ' Set last page number ' Set the paramters for the PrintOptions function Dim PageScaling As Integer = 0 Dim AutoRotateCenter As Integer = 0 Dim Title As String = fileName ' Assign the options for printing to an int variable Dim Options As Integer = QP.PrintOptions(PageScaling, AutoRotateCenter, Title) ' Print the document with the required paramters and options specified QP.PrintDocument(PrinterName, StartPage, EndPage, Options) ' Remove document from memory QP.RemoveDocument(docID)

BASSIES Members Profile Find Members Posts Beginner Joined: 15 Aug 13 Status: Offline Points: 11	Post Options Post Reply Quote BASSIES Report Post Thanks(0) Quote Reply Posted: 15 Aug 13 at 1:07PM
	Found it Dim AutoRotateCenter As Integer = 1