Q&A

  • 기본프린터로 설정했는데....
프로그램상에서 기본프린터를 잡았는데...

윈도우 상에서는 기본프린터를 바꾸는 데로 바뀌는데

프로그램상에서는

프로그램을 껏다가 켜야지만 잡히고 있습니다..

printer.refresh를 해도 마찮가지이고요

getmem();
getprinter();
freemem(); 을 해도 마찮가지고...


메모리에서 프린터를 재생성하면 될껏도 같은데...

무슨방법이 없을까요?.....고수님 부탁드립니다....
1  COMMENTS
  • Profile
    홍성락 2002.09.12 00:03
    hsr/////////////////////////////////////////////////////////////
    유닛에 Printers을 선언하구요
    procedure TForm1.Button1Click(Sender: TObject);
    var
       ResStr : array[0..255] of char;
       StrTemp : string;
    begin
       GetProfileString('Windows','device','',ResStr,255);
       StrTemp := StrPas(ResStr);
       if Pos(',',StrTemp)>=0 then
          StrTemp := copy(StrTemp,1,Pos(',',StrTemp)-1);
       Printer.PrinterIndex := Printer.Printers.IndexOf(StrTemp);
       PrintDialog1.Execute;
    end;