Debenu Quick PDF Library - PDF SDK Community Forum : Another Changing Trays question http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 05:56:32 +0000 Tue, 28 Dec 2021 11:00:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3783 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Another Changing Trays question : function GetTraysID()(TraysName:...]]> http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post16009.html#16009 Author: jack97119
Subject: 3783
Posted: 28 Dec 21 at 11:00AM

  function GetTraysID()(TraysName: string; adevice, aport: PWideChar): Word;
  var
    i, rslt: Integer;
    tBinNames: array of Tbinname;
    BinCodes: array of Word;
  begin
    Result := DM_DEFAULTSOURCE;
    rslt := devicecapabilitiesW(adevice, aport, dc_binnames, nil, nil);
    if rslt > 0 then
    begin
      setlength(tBinNames, rslt);
      setlength(BinCodes, rslt);
      try
        if devicecapabilitiesW(adevice, aport, dc_binnames, @tBinNames[0],
          nil) = -1 then
        begin
          setlength(BinCodes, 0);
          setlength(tBinNames, 0);
          raise exception.Create('error tbinnames');
        end;
        if devicecapabilitiesW(adevice, aport, DC_BINS, @BinCodes[0], nil) = -1
        then
        begin
          setlength(BinCodes, 0);
          setlength(tBinNames, 0);
          raise exception.Create('error  BinCodes');
        end;

        for i := 0 to rslt - 1 do
        begin
          if TraysName = tBinNames then
          begin
            Result := BinCodes;
            Break;
          end;
        end;
      finally
        setlength(BinCodes, 0);
        setlength(tBinNames, 0);
      end;
    end;
  end;

]]> Tue, 28 Dec 2021 11:00:45 +0000 http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post16009.html#16009 <![CDATA[Another Changing Trays question : Printer.BeginDoc; //dosomething...print...]]> http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post16008.html#16008 Author: jack97119
Subject: 3783
Posted: 28 Dec 21 at 10:57AM

    Printer.BeginDoc;
    //dosomething...print

    //--------- Changing Trays .... -----------------
    Printer.GetPrinter(device, driver, port, hDMode);
    if (hDMode <> 0) then
    begin
      pDMode := GlobalLock(hDMode);
      if Assigned(pDMode) then
      begin         
          pDMode.dmFields := pDMode.dmFields or DMBIN_MANUAL;
          pDMode.dmDefaultSource :=GetTraysID(); 
         winapi.Windows.EndPage( Printer.Handle );   
         If ResetDC( Printer.canvas.Handle, pDMode^ ) = 0 Then
                showmessage( 'ResetDC failed, '+SysErrorMessage(GetLastError));
         GlobalUnlock( hDMode );
         winapi.Windows.StartPage( Printer.Handle );
         Printer.Canvas.Refresh;
      end;
    //--------------------------------------------------

    //dosomething...print
    Printer.EndDoc;
    end;



Edited by jack97119 - 28 Dec 21 at 10:58AM]]> Tue, 28 Dec 2021 10:57:19 +0000 http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post16008.html#16008 <![CDATA[Another Changing Trays question : Hi Bob,that&#039;s not possibl...]]> http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post15110.html#15110 Author: Ingo
Subject: 3783
Posted: 18 Feb 20 at 10:13PM

Hi Bob,

that's not possible:
https://www.debenu.com/kb/can-print-different-printer-trays/
Ideas for further enhancements you should post into the official page regarding technical issues.
Here's the user/user-community...

]]> Tue, 18 Feb 2020 22:13:01 +0000 http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post15110.html#15110 <![CDATA[Another Changing Trays question : I also have a question about changing...]]> http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post15109.html#15109 Author: BobW
Subject: 3783
Posted: 17 Feb 20 at 4:32PM

I also have a question about changing trays.  Using the library, I can look at each page of my PDF and determine which tray I want to draw from.  I created a custom printer and can change its tray during printing  My problem is that it creates a new print spool job each time I switch trays.  For instance if I see the first 5 pages go to tray 2:
set the tray to 2 and PrintPages 1-5 
then change the tray to 3 and PrintPages 6
then change the tray the back to 2 and PrintPages 7-11, etc.

This can potentially create hundreds of spool jobs (I create a print very large PDFs).

Is there any way I can perform this in a single print job?  If not, this would be a great feature to add.  Something like:

StartPrinter
print to tray 2
print to tray 3
print to tray 2
EndPrinter
]]> Mon, 17 Feb 2020 16:32:59 +0000 http://www.quickpdf.org/forum/another-changing-trays-question_topic3783_post15109.html#15109