var

Device, Name, Port: array[0..100] of char;

DevMode : THandle;

Begin



ListBox1.Items := Printer.Printers;

If ListBox1.Items.Count < 1 then begin

ShowMessage('프린터가 설치되어 있지 않습니다.');

end;



.....중간생략....



if ListBox1.ItemIndex >= 0 then begin

Printer.PrinterIndex := ListBox1.ItemIndex;

Printer.GetPrinter(Device, Name, Port, DevMode);

Printer.SetPrinter(Device, Name, Port, 0);

end;



....



이와 같이 하면 프린터를 선택해서 출력할 수 있습니다.







아이스티 wrote:

> 해당 컴퓨터에 프린트 드라이브가 2개이상 설치되어있을 경우,

> A문서는 1번 프린트로 B문서는 2번 프린트로 자동으로 출력하려고 합니다.

> 이와 관련된 소스를 가지고 계시면 좀 가르쳐주세요.

김상호 wrote:

> var

> Device, Name, Port: array[0..100] of char;

> DevMode : THandle;

> Begin

>

> ListBox1.Items := Printer.Printers;

> If ListBox1.Items.Count < 1 then begin

> ShowMessage('프린터가 설치되어 있지 않습니다.');

> end;

>

> .....중간생략....

>

> if ListBox1.ItemIndex >= 0 then begin

> Printer.PrinterIndex := ListBox1.ItemIndex;

> Printer.GetPrinter(Device, Name, Port, DevMode);

> Printer.SetPrinter(Device, Name, Port, 0);

> end;

>

> ....

>

> 이와 같이 하면 프린터를 선택해서 출력할 수 있습니다.

>

>

>

> 아이스티 wrote:

> > 해당 컴퓨터에 프린트 드라이브가 2개이상 설치되어있을 경우,

> > A문서는 1번 프린트로 B문서는 2번 프린트로 자동으로 출력하려고 합니다.

> > 이와 관련된 소스를 가지고 계시면 좀 가르쳐주세요.





답변감사합니다.

그런데 한가지만 더 물어봐도 될런지 모르겠네요

위의 소스의 경우 사용자가 프린트 드라이브를 선택해야 하는 문제가 있는데

자동으로 해당 드라이브를 찾아가게 할 수는 없는지 궁금하네요.

물런 필요하다면 드라이브설정에 제한을 두더라도 위의 방법이 가능하다면

그 방법이 궁금합니다.