Como mudar a impressora padrão via codigo?

[roger_sanches 0]

Ola pessoal gostaria de saber como faço para mudar a impressora padrão via codigo... por favor me ajudem!!!! Abrs http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[@beto 0]

Fala ai cara ....

 

de quantas impressoras estamos falando ?

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[simoesluciano 0]

Printer.PrinterIndex := Printer.Printers.IndexOf('Nome da Impressora');

[thalesoli 0]

So completando.. adicione nas units o item Printers

 

 

 

Aproveitando a oportunidade...

 

alguem sabe como obter os modelos das impressoras instaladas?

 

não consigo achar em nenhum lugar...

 

 

aff

 

desde já agradeço

 

falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[marcio.theis 3]

você quer saber os modelos de impressoras instaladas como Epson, Hp, Xerox, etc... ou saber as impressoras instaladas como EpsonLX300, etc... ??

[thalesoli 0]

Eu quero obter os modelos das impressoras instaladas...pois existem falhas em impressoras com alguns componentes de impressão, então eu faço adaptações, só que com configurações através do usuários.. e eu quero que eu mesmo descubra e configure...falow

[marcio.theis 3]

Veja se tem algo que lhe ajude aqui: http://www.swissdelphicenter.ch/torry/printing.php

[thalesoli 0]

Vou dar uma olhada lá

 

valeu

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[thalesoli 0]

O q eu queria fazer é feito através do código abaixo

 

 

 

uses  Printers, Winspool;procedure TForm1.FormCreate(Sender: TObject);begin  ComboBox1.Items.Assign(Printer.Printers);end;procedure TForm1.ComboBox1Change(Sender: TObject);var  hPrinter: THandle;  PrtName: string;  DriverInfo: PDriverInfo2;  dwNeeded: DWORD;begin  Memo1.Clear;  PrtName := Combobox1.Text;  OpenPrinter(PChar(PrtName), hPrinter, nil);  GetPrinterDriver(hPrinter, nil, 2, DriverInfo, 0, dwNeeded);  GetMem(DriverInfo, dwNeeded);  if GetPrinterDriver(hPrinter, nil, 2, DriverInfo, dwNeeded, dwNeeded) then  begin	// Add infos to Memo1	Memo1.Lines.Add('Version: ' + IntToStr(DriverInfo.cVersion));	Memo1.Lines.Add(StrPas(DriverInfo.pName));	Memo1.Lines.Add(StrPas(DriverInfo.pEnvironment));	Memo1.Lines.Add(StrPas(DriverInfo.pDriverPath));	Memo1.Lines.Add(StrPas(DriverInfo.pDataFile));	Memo1.Lines.Add(StrPas(DriverInfo.pConfigFile));  end  else	Memo1.Lines.Add('No Info needed = ' + IntToStr(dwNeeded));  ClosePrinter(hPrinter);  FreeMem(DriverInfo);end;

 

 

no caso seria o pName dela...

 

 

 

falow

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[marcio.theis 3]

Show... :D em casa tb testei este exemplo, mas como não tinha certeza absoluta do q você queria, lhe passei o link com tudo, hehehe.... mas que bom que você conseguiu.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif