切换默认打印机

Forms/ReportAdjustFrm.dfm

@@ -14,7 +14,7 @@ object ReportAdjustForm: TReportAdjustForm
   OldCreateOrder = False
   DesignSize = (
     507
-    361)
+    364)
   PixelsPerInch = 96
   TextHeight = 12
   object btnOk: TButton

Forms/ReportAdjustFrm.pas

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