Print Page | Close Window

Print To Different Tray/Bin Not Working

Printed From: Debenu Quick PDF Library - PDF SDK Community Forum
Category: For Users of the Library
Forum Name: I need help - I can help
Forum Description: Problems and solutions while programming with the Debenu Quick PDF Library and Debenu PDF Viewer SDK
URL: http://www.quickpdf.org/forum/forum_posts.asp?TID=3992
Printed Date: 27 Jan 23 at 9:20PM
Software Version: Web Wiz Forums 11.01 - http://www.webwizforums.com


Topic: Print To Different Tray/Bin Not Working
Posted By: m_alam
Subject: Print To Different Tray/Bin Not Working
Date Posted: 13 Sep 22 at 1:18AM
Greeting,

i am trying to print to different tray/bin..

i have tried to set paper tray number using following code:
objRPDF.SetupCustomPrinter(strPrinterConfig, 9, Convert.ToInt32(PrinterTrayTextbox.Text)); // REM Printer Tray/Bin

my printer has 4 trays.. i tried 1 to number 4 that didn't work..

so, i made a demo tool to list the printer trays, but strangely it shows same trays number for most of my printers :(


but still when i try to print tray 15 and 257 (using 1st printer name), both print to same/default tray :(

and more strange is that the 2nd printer on the list only have 1 tray, but qpl also shows same trays number for that one too? :(

so? what i am doing wrong here?

thanks in advance for upcoming help

best regards



Replies:
Posted By: Ingo
Date Posted: 13 Sep 22 at 10:16PM
Hi Hassan,

To check about the real printer names i use:
GetPrinterNames.
To check about existing printer bins i use:
GetPrinterBins.

Doing the output the following syntax should help:

if ( prname = 'default' ) Then
     PriName := QP.GetDefaultPrinterName;

if ( prname <> 'default' ) then
     PriName := prname;

// . . .

propt := QP.PrintOptions(pscal, rotate, fname);
            
if ( bin > 0 ) Then
  begin
    cPriName := QP.NewCustomPrinter(PriName);
    QP.SetupCustomPrinter(cPriName, 9, bin);
  end;
            
if ( pend = 9999 ) then
  pend := pc; // pagecount
  for i := 1 to copies do
    begin
      if ( bin > 0 ) Then
        QP.PrintDocument(cPriName, pstart, pend, propt)  // with bin
      else
        QP.PrintDocument(PriName, pstart, pend, propt);  // without bin
    end;



-------------
Cheers,
Ingo



Posted By: m_alam
Date Posted: 14 Sep 22 at 12:50AM
Originally posted by Ingo Ingo wrote:

Hi Hassan,

To check about the real printer names i use:
GetPrinterNames.
To check about existing printer bins i use:
GetPrinterBins.

Doing the output the following syntax should help:

if ( prname = 'default' ) Then
     PriName := QP.GetDefaultPrinterName;

if ( prname <> 'default' ) then
     PriName := prname;

// . . .

propt := QP.PrintOptions(pscal, rotate, fname);
            
if ( bin > 0 ) Then
  begin
    cPriName := QP.NewCustomPrinter(PriName);
    QP.SetupCustomPrinter(cPriName, 9, bin);
  end;
            
if ( pend = 9999 ) then
  pend := pc; // pagecount
  for i := 1 to copies do
    begin
      if ( bin > 0 ) Then
        QP.PrintDocument(cPriName, pstart, pend, propt)  // with bin
      else
        QP.PrintDocument(PriName, pstart, pend, propt);  // without bin
    end;



that's what exactly my code does, though in different language.. but it just not working :(




Posted By: Ingo
Date Posted: 14 Sep 22 at 7:21PM
not really "exactly" cause my code works for me ;-)



-------------
Cheers,
Ingo



Posted By: m_alam
Date Posted: 17 Sep 22 at 3:09AM
Originally posted by Ingo Ingo wrote:

not really "exactly" cause my code works for me ;-)



            strPrinterConfig = objRPDF.NewCustomPrinter(PrinterName);
            objRPDF.SetupCustomPrinter(strPrinterConfig, 1, 0); // REM custom paper size
            objRPDF.SetupCustomPrinter(strPrinterConfig, 2, intHeight); // REM custom paper height
            objRPDF.SetupCustomPrinter(strPrinterConfig, 3, intWidth); // REM custom paper width
            objRPDF.SetupCustomPrinter(strPrinterConfig, 5, 1); // REM quality 1 = high, 2 = medium, 3 = low, 4 = draft, Or Exact DPI
            objRPDF.SetupCustomPrinter(strPrinterConfig, 6, 2); // REM Color 1 = monochrome, 2 = Color
            objRPDF.SetupCustomPrinter(strPrinterConfig, 9, Convert.ToInt32(PrinterTrayTextbox.Text)); // REM Printer Tray/Bin
            objRPDF.SetupCustomPrinter(strPrinterConfig, 11, PageLayout); // REM 1 = portrait, 2 = landscape

that is the code i am using to setup printer tray, what i am doing wrong here? can you please tell me?

thanks in advance

best regards


Posted By: Ingo
Date Posted: 28 Sep 22 at 9:43PM
Do you read all at "for default source" (New Value)?
https://www.debenu.com/docs/pdf_library_reference/SetupCustomPrinter.php

There should be a problem...
After each code line you can check the returning value of the call from one line before.
1 means okay / 0 means error

Perhaps this helps one step further?


-------------
Cheers,
Ingo




Print Page | Close Window

Forum Software by Web Wiz Forums® version 11.01 - http://www.webwizforums.com
Copyright ©2001-2014 Web Wiz Ltd. - http://www.webwiz.co.uk