|
▼ Saraさん
恥ずかしいですが、勉強不足で、下記の★のところでエラー（未定義識別子）
になるが、どう定義すればよろしいでしょうか？
> procedure TForm1.SetDefaultPrinter(Color : Integer);
> var
> Device, Driver, Port: array[0..79] of char;
> DeviceMode: THandle;
> DevMode: PDeviceMode;
> begin
> //プリンタ名、DEVMODE構造体を取得
> Printer.PrinterIndex := ComboBox1.ItemIndex;
> Printer.GetPrinter(Device, Driver, Port, DeviceMode);
> Printer.SetPrinter(Device, Driver, Port, 0);
> Printer.GetPrinter(Device, Driver, Port, DeviceMode);
> if DeviceMode = 0 then begin
> ShowMessage('Printer.GetPrinter エラー');
> Exit;
> end;
>
> DevMode := GlobalLock(DeviceMode);
> try
> //必要なら、ここで DevModeを修正する
> //↓ B5横 に設定する例
> with DevMode^ do begin
> dmColor := Color;//色指定
> end;
> ★SetDefaultUsePrinter(Device {←これが「プリンタ名」です}
> ,True {「通常使うプリンタ」に設定する}
> ,DevMode {DEVMODE構造体を設定する}
> );
> finally
> GlobalUnlock(DeviceMode);
> end;
> end;
>
|