When I want to print to a USB printer, I simply find the printer's name
and send my job to it. I have never had to go below the standard
interface. With Quick Reports for example, I use the Printer settings
dialog.
Here is some sample code for printing directly to an LPT port:
I := Printer.Printers.IndexOf(LblPrinter); // LblPrinter = Name of
printer
if I >= 0 then Printer.PrinterIndex := I; // -1 means no printer
selected
with Printer do
begin
BeginDoc;
Canvas.Font.Name := 'Courier New';
Canvas.font.size := 12;
Canvas.font.Style := [fsBold];
Z := Canvas.TextHeight('X'); //Height in pixels
X := Canvas.TextWidth('X'); // Width in Pixels
Canvas.TextOut(X,0,BuildLine('First'));
Canvas.TextOut(X,Z,Line);
Canvas.font.Style := [];
Canvas.Font.Name := 'Free 3 of 9 Extended'; //Bar code
Canvas.font.size := 48;
Canvas.TextOut(9*X,2*Z,'*' + IntToStr(OrdNo) + '*');
Canvas.Font.Name := 'Courier New';
Canvas.font.size := 12;
Canvas.font.Style := [fsBold];
//................ Other printing on label
EndDoc;
Tom Nesler
-----Original Message-----
From: [email protected] [mailto:[email protected]] On
Behalf Of free2inov8
Sent: Sunday, August 30, 2009 9:25 PM
To: [email protected]
Subject: [delphi-en] Re: usb virtual printer
No Chris, what i'm looking for is a tutorial on how to read and
write/send data to USB to LPT converter, just like using LPT port on an
old pc/notebook. I'm looking a way on how delphi can handle this task.
On old PC we can find LPT port that we use to connect to printer or as
an I/O port for data aquisition, but on latest notebook there is only
usb port available. So i wonder if i can use USB to printer
converter/cable to substitute missing LPT port as an I/O port for data
aquisition.
Thank you.
--- In [email protected], "Chris" <ch...@...> wrote:
>
> Are you looking for an LPT port simulator?
>
>
>
> _____
>
> From: [email protected] [mailto:[email protected]] On
Behalf
> Of free2inov8
> Sent: 27 August 2009 11:27 a
> To: [email protected]
> Subject: [delphi-en] usb virtual printer
>
>
>
>
>
> Hi,I want to use USB printing support device as an I/O, just like LPT
on
> older PC.
> Does anyone have reference/tutorial for that?
> Thank you.
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
------------------------------------
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [email protected]! Groups Links
