Search the Community

Hi, I'm fairly new to Delphi and I'm trying to print a receipt along with a digital signature drawn on the phone. I turn the canvas vector into a bitmap but I can't seem to output the signature through the GO Link GL-28 printer. And since I'm new at this I'm using Chat GPT which is leading me to use Printer.Canvas.TextOut, Printer.Canvas.DrawText and Printer.Canvas.TextRect. None of which seems to work. I get the undeclared identifier on all three. how can I print the data I want? procedure TModPrincipal.SendToPrinter(const AData: string); var Printer: TPrinter; i, YPos: Integer; Rect: TRectF; begin Printer := TPrinter.Create; // Create a printer instance try Printer.BeginDoc; YPos := 10; for i := 1 to Length(AData) do begin Printer.Canvas.TextOut(10, YPos, AData); Inc(YPos, 20); end; for i := 1 to Length(AData) do begin Printer.Canvas.DrawText(10, i*20, AData); end; for i := 1 to Length(AData) do begin Rect := TRectF.Create(10, YPos, 200, YPos + 20); Printer.Canvas.TextRect(Rect, 10, YPos, AData); Inc(YPos, 20); end; finally Printer.EndDoc; Printer.Free; // Free the printer after use end; end;

Hi I use the "Printer.Canvas.TextOut(X, Y: integer; const Text: string)" procedure to print to a thermal pos printer. I have an issue with the X position when I use built-in printer fonts, e.g. "FontA11". When I use windows fonts, e.g. Arial, the X position works fine. Basically, with built-in fonts, the X value is being ignored whatever value it is being passed, i.e. TextOut(0, 0, 'Print Something') and TextOut(100, 0, 'Print Something') are printing at the EXACT same position. The thermal printer driver I am using is "Thermal Printer Drivers 4.57". FYI, "Thermal Printer Drivers 3.0" worked fine but can't be used on Windows 10 computers. Please, advise