|
procedure TForm1.LabelPrintClick(Sender: TObject);
var
V: Variant;
begin
try
V := CreateOleObject('BrssCom.Document');
except
ShowMessage('Could not start b-PAC component.');
Exit;
end;
if (V.Open('C:\Test\Test.lbl') <> 0) then
begin
V.SetText(0. 'Hello World!');
V.DoPrint(0, '0');
end;
V := Unassigned;
end;