1

A00标签打印/U_LabelPrint.dfm

@@ -1,8 +1,8 @@
 object frmLabelPrint: TfrmLabelPrint
   Left = 880
   Top = 409
-  Width = 277
-  Height = 178
+  Width = 282
+  Height = 204
   Caption = #25253#34920#25171#21360
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -21,8 +21,8 @@ object frmLabelPrint: TfrmLabelPrint
   object Panel1: TPanel
     Left = 0
     Top = 0
-    Width = 269
-    Height = 147
+    Width = 274
+    Height = 173
     Align = alClient
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -32,7 +32,7 @@ object frmLabelPrint: TfrmLabelPrint
     TabOrder = 0
     object btnShow: TSpeedButton
       Left = 13
-      Top = 91
+      Top = 115
       Width = 105
       Height = 49
       Caption = #39044#35272
@@ -59,7 +59,7 @@ object frmLabelPrint: TfrmLabelPrint
     end
     object btnPrint: TSpeedButton
       Left = 153
-      Top = 91
+      Top = 115
       Width = 105
       Height = 49
       Caption = #25171#21360
@@ -77,13 +77,11 @@ object frmLabelPrint: TfrmLabelPrint
       Width = 105
       Height = 29
       Caption = #25171#21360#36873#39033
-      Color = clWhite
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -20
       Font.Name = #23435#20307
       Font.Style = [fsBold]
-      ParentColor = False
       ParentFont = False
       TabOrder = 0
     end
@@ -144,20 +142,20 @@ object frmLabelPrint: TfrmLabelPrint
       Text = '1'
       Width = 71
     end
-    object ComboBox_Print: TcxComboBox
-      Left = 29
-      Top = 192
+    object ComboBox_Print: TComboBox
+      Left = 13
+      Top = 81
+      Width = 244
+      Height = 29
+      Style = csDropDownList
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ItemHeight = 21
       ParentFont = False
-      Properties.DropDownListStyle = lsFixedList
-      Style.Font.Charset = GB2312_CHARSET
-      Style.Font.Color = clWindowText
-      Style.Font.Height = -16
-      Style.Font.Name = #24494#36719#38597#40657
-      Style.Font.Style = []
-      Style.IsFontAssigned = True
       TabOrder = 4
-      Visible = False
-      Width = 245
     end
   end
   object ADOQueryTemp: TADOQuery

A00标签打印/U_LabelPrint.pas

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
-  cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxGridCustomTableView,
+  Printers, cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxGridCustomTableView,
   cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
   cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
   cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
@@ -49,7 +49,6 @@ type
     ADOQueryCmd: TADOQuery;
     ADO_While: TADOQuery;
     ComboBox1: TcxComboBox;
-    ComboBox_Print: TcxComboBox;
     btnPrint: TSpeedButton;
     RMDB_4: TRMDBDataSet;
     RMDB_5: TRMDBDataSet;
@@ -58,6 +57,7 @@ type
     CDS_3: TClientDataSet;
     CDS_4: TClientDataSet;
     CDS_5: TClientDataSet;
+    ComboBox_Print: TComboBox;
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormShow(Sender: TObject);
@@ -277,7 +277,8 @@ begin
     if MIsShow then
       RM1.ShowReport
     else
-      RM1.PrintReport;
+      RM1.PrintReportL(ComboBox_Print.Text);
+    ;
   end
   else
   begin
@@ -289,6 +290,12 @@ procedure TfrmLabelPrint.FormCreate(Sender: TObject);
 begin
 
   FPreviewPrint := True;
+
+  ComboBox_Print.Items.Assign(Printer.Printers);
+//  ComboBox2.ItemIndex := 0; //指向第一台打印机
+  ComboBox_Print.Items.Add('默认打印机');
+  ComboBox_Print.ItemIndex := Self.ComboBox_Print.Items.IndexOf(trim('默认打印机'));
+
   InitArgs();
   with ADOConnection1 do
   begin

云翔一码通/YXYMT.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\Project\D7myYunxiang\云翔一码通\testDll.exe
+HostApplication=E:\项目资料\00_重点客户\云翔\D7myYunxiang\云翔一码通\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=