切换默认打印机

Forms/ProjectPropertiesFrm.dfm

@@ -265,7 +265,7 @@ object ProjectPropertiesForm: TProjectPropertiesForm
             Top = 192
             Width = 60
             Height = 12
-            Caption = #39033#30446#20844#21496#65306
+            Caption = #39033#30446#20998#37096#65306
           end
           object lblSupervisor: TLabel
             Left = 34

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.