AW: Brother P-Touch QL-1060N gibt mit SDK nur leere Etiketten aus
7. Dez 2021, 19:33
Hallo noch mal,
Fehler gefunden. Offensichtlich sind die Beispiele nicht ganz aktuell. Der Beispielcode in der Hilfe verwendet "StartPrint". Allerdings muss man dabei entgegen den Beispielen dem Parameter "docName" einen Wert geben. Sonst kommt Fehler 25. So funktioniert der Druck:
<--
procedure TForm1.Button2Click(Sender: TObject);
var
FPTouchDocument: bpac_TLB.IDocument;
begin
FPTouchDocument := CreateComObject(CLASS_Document) as bpac_TLB.IDocument;
if FPTouchDocument.Open('.\test2.lbx') then
begin
if FPTouchDocument.GetObject('Text2') <> nil then
FPTouchDocument.GetObject('Text2').Text := 'testtext';
if FPTouchDocument.StartPrint('Sample', bpoDefault) then
begin
if FPTouchDocument.PrintOut(1, bpoDefault) then
begin
FPTouchDocument.EndPrint;
FPTouchDocument.Close;
end
else
ShowMessage(FPTouchDocument.ErrorCode.ToString);
end
else
ShowMessage(FPTouchDocument.ErrorCode.ToString);
end
else
ShowMessage(FPTouchDocument.ErrorCode.ToString);
end;
-->
Gruß
Stefan
Stefan
|