I can not see any reference to it in the manual, and following the source code needs several hours, so:
1.) How can I get the actual WPRichText1 Printer, and how can I set it programatically to another one without calling the setup dialog.
2.) How can I get printer parameters programatically like printer name, orientation, paper size after calling WPRichText1.PrinterSetup.
1.) How can I get the actual WPRichText1 Printer, and how can I set it programmatically to another one without calling the setup dialog.
As usually with Delphi VCL, use Printer.PrinterIndex for this. The integer value is the index in the list Printer.Printers[].
You can use this function:
function TWPDFWorkBenchPrinter.SelectPrinter(ThisPrinter : TPrinter;
printername: string): Boolean;
var
i: Integer;
ADevice, ADriver, APort: array [0 .. 256] of Char;
ADeviceMode: THandle;
begin
i := 0;
while i < ThisPrinter.Printers.Count do
begin
if CompareText(ThisPrinter.Printers[i], printername) = 0 then
break;
inc(i);
end;
// b) start with
if i = ThisPrinter.Printers.Count then
begin
i := 0;
while i < ThisPrinter.Printers.Count do
begin
if Pos(uppercase(printername), uppercase(ThisPrinter.Printers[i]))
= 1 then
break; // NEW: start with!
inc(i);
end;
end;
// c) contains
if i = ThisPrinter.Printers.Count then
begin
i := 0;
while i < ThisPrinter.Printers.Count do
begin
if Pos(uppercase(printername), uppercase(ThisPrinter.Printers[i]))
> 0 then
break;
inc(i);
end;
end;
if i < ThisPrinter.Printers.Count then
begin
ThisPrinter.PrinterIndex := i;
ThisPrinter.GetPrinter(ADevice, ADriver, APort, ADeviceMode);
ThisPrinter.SetPrinter(ADevice, ADriver, APort, 0); // RESET!!!
Result := true;
end
else
begin
Result := false;
end;
end;The part with "Reset" used to be required to make sure, the printer is not using properties of the previous printer.
2.) How can I get printer parameters programmatically like printer name, orientation, paper size after calling WPRichText1.PrinterSetup.
You need to use DeviceCapabilities. See this method in WPCtrMemo.pas
TWPCustomRtfEdit.UpdatePrinterProperties
After looking at UpdatePrinterProperties, and in respect to:
2.) How can I get printer parameters programmatically like printer name, orientation, paper size after calling WPRichText1.PrinterSetup.
What I want to do is to update my form data with the printer name just selected.
I tried to implement the events TWPDefAct.WPAPrinterSetup1AfterExecute and TWPDefAct.aView_PrinterSetupAfterExecute through the StdActions control in wpDefActions7, but none of both are called after WPRichText1.PrinterSetup terminates.
So, is there a way to get the printer name once PrinterSetup dialog is terminated, and preferably without changing the control source code.
Hi,
PrinterSetup is implemented by the VCL. It changes Printer.PrinterIndex so you can read the printer name like this
ShowMessage( Printer.Printers[Printer.PrinterIndex] );
Next build will have a new event AfterExecuteAction which makes it easy to update the GUI after any property dialog was closed.
Hi,
the new build is online now.
I added a variable to the default action datamodule: CurrentPrinterName
That is updated by the code outlines above.
Julian