0
我在Delphi中使用TDymoDrucker
类来打印标签。我已经使用Dymo Label v.8创建了标准标签字段。打印标签dymo不起作用
在Labelform,我发送按钮的点击变量TDymo德鲁克类
procedure TFormButton.Button1Click(Sender: TObject);
var
Print : TDymoData;
begin
PrintData.selected := 'Button1';
PrintData.Nummber := 1234;
PrintData.Name :='Example1';
DymoData.Print(PrintData); //Passing parameters to Dymodrucker classwhere it checks for printer status and label fields
end;
我处理所有操作,以检查是否安装了DymoDrucker类的所有字段和驱动程序,最后用DymoAddIn.Print(1, true)
我我能够打印标签。
但在同一形式的另一个按钮的点击
procedure TFormButton.Button2Click(Sender: TObject);
var
Print : TDymoData;
begin
PrintData.selected := 'Button2';
PrintData.Model := 4567;
PrintData.ModelName :='Example2';
DymoData.Print(PrintData);
end;
我处理所有操作,检查所有的领域和驱动程序是否安装在DymoDrucker类,最后用DymoAddIn.Print(1, true)
,我无法打印标签。它不显示任何错误信息或失败。
有人能告诉我为什么是这样吗?感谢您的帮助提前。