Printing on non default printer in Windows.

[zbych2002]

Hi,

I’m writing a short program in Delphi 6.0 under Windows 2000.
I’ve to print only one page but not on a default printer.

I know only the name of this printer in Windows.

I wrote:

uses ......, printers;
:
:
Printer.PrinterIndex := 1 //Index of printer which isn’t default
Printer.Title := ‘Printer test’
Printer.BeginDoc;
:
:
Printer.Canvas.TextOut(100,100,’Printer test’);
:
:
Printer.EndDoc;

After run program, spool manager changed to new printer, but whole settings for example of page height are from default printer.

Thanks for any help,

 

[awarnica]

You have to change all the properties I would guess...

Printer.PageHeight :=
Printer.PageWidth :=

...

andrew

 

[zbych2002]

I think that it have to be made in another way.

When I use TdialogPrinter everything is OK After run Execute method I change the printer and all properities of new printer are automatycally available.

I want to change printer in code without opening DialogPrinter.

Zbych,