切换默认打印机

Forms/ReportAdjustFrm.pas

@@ -397,7 +397,11 @@ begin
 end;
 
 procedure TReportAdjustForm.cbPrinterSelect(Sender: TObject);
+var
+  szDeviceName: string;
 begin
+  Printer.PrinterIndex := cbPrinter.ItemIndex;
+  szDeviceName := Printer.Printers[Printer.PrinterIndex];
   ChangeDefaultPrinter(cbPrinter.Text);
 end;