名前
題名
▼ 小豚丸さん > ▼ 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; > > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link