Print Settings Question

abcc

I have two programs that handle selection and generation of a large number of documents.

The first program gets the user to specify which documents are to be generated, and for which people.
The second program handles load the template, merging, saving and spooling, and is called by the first and parameters passed.

I need to be able to add support to the first program to allow the user to specify custom print settings (specifically the tray number), and pass that across to the second program -- but I am not sure how to approach it -- any ideas?

Many thanks in advance.

support

You can use the 'RTFVariables' to save any string information to a RTF file. Simply use "Add" to add such a variable and set the string.
Since V4.21 it is also possible to store binary information.

The tray information can be set in PrintParameter. But please note that some printer (or printer settings) use a certain tray for a certain paper size.

abcc

Just installed the 4.22a update. PrintParameter of the WPRichEdit control does not appear to list a Tray option...

support

The WPPapBin Dilog uses 2 combo boxes to let you choose paper trays. See this code:

Code

procedure TPaperBinSelector.FormShow(Sender: TObject);
var i : Integer;
begin
   if EditBox<>nil then
   begin
       EditBox.PrintParameter.GetPaperBins( SelList1.Items );
       SelList1.ItemIndex := -1;
       for i:=0 to SelList1.Items.Count-1 do
          if Word(SelList1.Items.Objects[i])=
              EditBox.PrintParameter.FirstPagePaperSource then SelList1.ItemIndex := i;


       EditBox.PrintParameter.GetPaperBins( SelList2.Items );
       SelList2.ItemIndex := -1;
       for i:=0 to SelList2.Items.Count-1 do
          if Word(SelList2.Items.Objects[i])=
              EditBox.PrintParameter.AllPagePaperSource then SelList2.ItemIndex := i;


   end;
end;


procedure TPaperBinSelector.btnOkClick(Sender: TObject);
begin
  if EditBox<>nil then
  begin
    if SelList1.ItemIndex>=0 then EditBox.PrintParameter.FirstPagePaperSource :=
           Word(SelList1.Items.Objects[SelList1.ItemIndex]);


    if SelList2.ItemIndex>=0 then EditBox.PrintParameter.AllPagePaperSource :=
           Word(SelList2.Items.Objects[SelList2.ItemIndex]);
  end;
  ModalResult := ID_OK;
end;

Alles anzeigen