안녕하세요.

별다른 것은 없고요 현재 설정된 기본 프린트를 바꿀려하는데 바꿔도

이전설정된 프린트장치에서 프린트됩니다. 간단히 루틴은 다음과 같습니다.



if PrinterSetupDlg.Execute = True then

begin

try

MsWord := CreateOleObject('Word.Basic');

except

ShowMessage('MS-Word를 시작할수 없습니다.');

end;

MSWord.FileOpen(GFileName);

MSWord.FilePrint;

MSWord.FileExit;

end;



원인을 알려 주시면 감사하겠습니다.

통상적인것이라기 보다는 제가 사용하는 방법을 말씀드리죠.

전 Component라는 디렉토리를 따로 루트디렉토리에 만듭니다.

그곳에 제3자 컴포넌트들을 집어넣어 둡니다.

사실은 이 방식을 옛날 델파이 16비트시절(라이브러리 서치패스의 길이가 제한이 있을때)에 사용한 방식입니다.

그리고 32비트때는 한술 더 떠서 필요한 컴포넌트를 설치하고 DPK로 따로 저장을 해둡니다. 그 디렉토리에 말이죠. 프로젝트때마다 필요한 컴포넌트가 틀리니까 매번 설치하기 번거롭자나요.

그래서 필요한것만 딱 설치하고 그 프로젝트 이름으로 DPK로 저장을 해둡니다.

그리고 다른 프로젝트할때는 다시 다 제거하고 또 그 프로젝트에 필요한것만 설치해서 다른 DPK로 저장을 해두죠.

그래놓은 후에 그 프로젝트를 다시 수행해야할 경우가 생기면 그 DPK만 열어서 Install버튼만 누르면 그대로 다시 올라가죠.

저는 이방식을 선호합니다.

Component라는 디렉토리 밑에 각 컴포넌트 이름을 가진 디렉토리를 만들어서 집어 넣어놓는것도 좋은 방법주에 하나겠죠? 델파이3버전부터는 서치패스길이가 거의 제한이 없다고봐도 좋으니까요.. ^^



한승협 께서 말씀하시기를...

> 좋은 저녁입니다.. ^^*

>

> 자작 컴포넌트나 제 3자 컴포넌트나 패키지 같은 것들을 통상적으로

>

> 어디에 놔두면 좋을까요? 별거 아닌데.. 되게 고민되네요...

>

> 그냥 그런게 혹시 있나 싶어서... 있으면 따르는게 좋을 거 같아서요..

>

> 그럼..

제가 만든 기본프린터 바꾸는 함수 입니다.

참고하시구요... 이것은 프린터 이름의 일부만 넣어줘도 됩니다.



procedure TMainForm.SetDPrinter(PrnStr : String);

var

WinIni : TIniFile;

WinIniFileName : array[0..MAX_PATH] of char;

s : array[0..64] of char;

i : integer;

pDevice : array[0..31] of Char;

pDevice2 : array[0..31] of Char;

pDriver : array[0..259] of Char;

pPort : array[0..259] of Char;

DeviceMode : THandle;



begin

//프린터를 세팅하는 함수.

for i := 0 to Printer.Printers.Count - 1 do

If Pos(PrnStr,Printer.Printers[i]) > 0 then Break;



If (Printer.Printers.Count - 1 < i) then

begin

ShowMessage('프린터이름이 없습니다.');

Exit;

end;

If (Printer.PrinterIndex <> i) then

begin

printer.PrinterIndex := -1;

Devicemode:=0;

printer.getprinter(pdevice2,pDriver,pPort,DeviceMode);



Printer.PrinterIndex := i;

Devicemode:=0;

printer.getprinter(pdevice,pDriver,pPort,DeviceMode);



If StrPas(pDevice) <> StrPas(pDevice2) then

begin

GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));

StrCat(WinIniFileName, 'win.ini');

WinIni := TIniFile.Create(WinIniFileName);

try

WinIni.WriteString('windows',

'device',

StrPas(pdevice)+','+StrPas(pDriver)+','+StrPas(pPort));

finally

WinIni.Free;

end; //Try



StrCopy(S, 'windows');

SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));

Application.ProcessMessages;

Delay(1000);

end;

end;

end;





이호선 wrote:

> 안녕하세요.

> 별다른 것은 없고요 현재 설정된 기본 프린트를 바꿀려하는데 바꿔도

> 이전설정된 프린트장치에서 프린트됩니다. 간단히 루틴은 다음과 같습니다.

>

> if PrinterSetupDlg.Execute = True then

> begin

> try

> MsWord := CreateOleObject('Word.Basic');

> except

> ShowMessage('MS-Word를 시작할수 없습니다.');

> end;

> MSWord.FileOpen(GFileName);

> MSWord.FilePrint;

> MSWord.FileExit;

> end;

>

> 원인을 알려 주시면 감사하겠습니다.

>

이호선 wrote:

> 안녕하세요.

> 별다른 것은 없고요 현재 설정된 기본 프린트를 바꿀려하는데 바꿔도

> 이전설정된 프린트장치에서 프린트됩니다. 간단히 루틴은 다음과 같습니다.

>

> if PrinterSetupDlg.Execute = True then

> begin

> try

> MsWord := CreateOleObject('Word.Basic');

> except

> ShowMessage('MS-Word를 시작할수 없습니다.');

> end;

> MSWord.FileOpen(GFileName);

> MSWord.FilePrint;

> MSWord.FileExit;

> end;

>

> 원인을 알려 주시면 감사하겠습니다.

>



안녕하세요.



위소스를 보니... ole 객체자체에서 지원하는 프린트루틴을 사용하는군요..

그렇다면 아마도 위소스처럼 기본프린터를 변경시켜도 그 내용이 적용되지 않을 가능성이 많습니다. - 참고로 프로그램에서 기본프린터를 바꾸어도 그 프로그램이 종료되면 원래의 값으로 프린터가 설정됩니다.



확실한건 아닙니다. -.-;;