sending data to certain printer

[tweetie777]

hi there

i have 3 printers and i want my program only to send information to a certain printer. how do i do this. if any1 can help me i would very grateful. please provide source code example

 

[bbegley]

I think something like this would work.

For i := 0 to Printer.Printers.Count -1 do
begin
If Printer.Printers = 'WhateverPrinterName' then
begin
Printer.PrinterIndex := i;
break;
end;
end;

 

[Ulfeng]

I've used this in the past...

Printer.PrinterIndex := Printer.Printers.IndexOf('PrinterName');

Hope it helps. -Jonathan

 

[tweetie777]

thanks guys, that does help. I do have another problem though. Although, I can get the above code to work when i am writing to the print canvas, it doesnt work when i try printing ms word documents. It still prints to the default printer. A source code sample would be great if you could help me. Thanks a million. My non-working code is as follows

var
mswordlevariant;

procedure
begin
msword.fileopen('filename');

Printer.PrinterIndex := Printer.Printers.IndexOf('PrinterName');
msword.fileprint;

end;