5,392
社区成员
发帖
与我相关
我的任务
分享关于打印的问题，改变默认打印机
我用delphi6 的Qreport做的报表，需要自动选择打印机，我用 printer.PrinterIndex 改变默认打印机不起作用？请大家指教，最好详细一点，谢谢！
...全文
请发表友善的回复…
发表回复
inforum 2002-08-21
- 打赏
- 举报
SetPrinter函数(see in PRINTER.PAS unit).
funboy88 2002-08-21
- 打赏
- 举报
在窗体中加入combobox和两个button
你自己TRY！
我测试通过!
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items := Printer.Printers; {populates ComboBox}
ComboBox1.ItemIndex := Printer.PrinterIndex; {sets display to current printer}
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Device: array[0..255] of Char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
s : array[0..255] of Char;
hDeviceMode: THandle;
begin
Printer.PrinterIndex := ComboBox1.ItemIndex;
Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
StrCopy (s, Device);
StrCat (s, ',');
StrCat (s, Driver);
StrCat (s, ',');
StrCat (s, Port);
WriteProfileString ('windows', 'device', s);
StrCopy (s, 'windows');
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@s));
end;
你自己TRY！
我测试通过!
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items := Printer.Printers; {populates ComboBox}
ComboBox1.ItemIndex := Printer.PrinterIndex; {sets display to current printer}
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Device: array[0..255] of Char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
s : array[0..255] of Char;
hDeviceMode: THandle;
begin
Printer.PrinterIndex := ComboBox1.ItemIndex;
Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
StrCopy (s, Device);
StrCat (s, ',');
StrCat (s, Driver);
StrCat (s, ',');
StrCat (s, Port);
WriteProfileString ('windows', 'device', s);
StrCopy (s, 'windows');
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@s));
end;
jianling0538 2002-08-20
- 打赏
- 举报
printer.printerindex:=n
qrPublic.PrinterSettings.PrinterIndex:=printer.PrinterIndex;
qrPublic.PrinterSettings.PrinterIndex:=printer.PrinterIndex;
