michnic.org

procedure TForm1.Button2Click(Sender: TObject);
var
  Handle: THandle;
  N: DWORD;
  DocInfo1: TDocInfo1;
begin
  if not OpenPrinter(PChar('ZDesigner TLP 2844'), Handle, nil) then
    begin
      ShowMessage('error ' + IntToStr(GetLastError));
      Exit;
    end;
  with DocInfo1 do 
    begin
      pDocName := PChar('test doc');
      pOutputFile := nil;
      pDataType := 'RAW';
    end;
  StartDocPrinter(Handle, 1, @DocInfo1);
  StartPagePrinter(Handle);
  WritePrinter(Handle, PChar(Memo1.Text), Length(Memo1.Text), N);
  EndPagePrinter(Handle);
  EndDocPrinter(Handle);
  ClosePrinter(Handle);
end;