1. 개발/실행 플랫폼

(1) OS : 윈도우10

(2) 개발툴 : 델파이 7

(3) 사용 Database :

2. 개발 중인 프로그램

3. 질문 내용 :

  아래 소스로 프린터기는 변경가능한데요

  프린터기 용지 변경이 안됩니다.  A3 <=> A4

   TvaSpread, TvaSpreadPreview 로 출력합니다.

   뭔가를 빠뜨린 건지요?

=========================================

procedure TfrmCmPrint.Button1Click(Sender: TObject);
var
 device : array[0..255] of char;
 Driver : array[0..255] of char;
 Port : array[0..255] of char;
 hDeviceMode : THandle;
begin

  if PrinterSetupDialog1.Execute then begin
    Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
    StrCat(Device, ',');
    StrCat(Device, Driver);
    StrCat(Device, ',');
    StrCat(Device, Port);
    WriteProfileString('windows', 'device', Device);
    StrCopy(Device, 'windows');
    SendMessage(HWND_BROADCAST, WM_WININICHANGE,0,longint(@Device));
  end;

END;

==============================================