Az a helyzet, hogy a Windows 2000 óta csak driver-en keresztül lehet a portokat elérni, közvetlenül nem. Ha USB akarsz használni akkor erre találsz a freepascal.extra.hu -n komponenst, de ez csak az USB vezérlésére jó. Ha a nyomtató fel van telepítve akkor mi szükség lenne mással nyomtatni? A nyomtatásra pedig már van a fórumon megoldás feltéve.
Üdv.: Totó

Szia,

Fura, de nem kéne köze legyen az USB-nek a nyomtatáshoz. Esetleg arra tudok gondolni, hogy a nyomtató drivere nem támogat valami olyan dolgot, amit te szeretnél vele csinálni.

Figyu, amikor én így közvetlenül írogattam nyomtatóra, én mindig megrajzoltam előtte egy image-ra (TImage) osztály, és utána StretchDraw-val rárajzoltam a nyomtatóra. Nem hinném hogy olyan égbekiáltó különbség lenne, de egy próbát megér. A CopyRect-et nem próbáltam, szintén megérné kipróbálni StretchDraw-val.

Nyugi, most én azzal szívok, hogy egyik ügyfelünk vett kéttálcás nyomtatót, és most szeretné ha a programunkból lehetne választani melyik tálcára nyomtasson.

Itt van egy ezeréves programrészletem, 2001-ben csináltam a Honvédségnek egy szolgálatvezénylő programot, az nyomtatott így közvetlenül: (régi kód, de másként csinálnék már benne jópár dolgot... :-D ) (remélem nem csúszik szét a kód)

Menyus


var Rec: TRect;
Mar, Akt, Mekkora : longint ;
imSeged : TImage ;
begin
if printdialog.Execute then begin
screen.cursor := crHourGlass ;
Mar := Im.Picture.Graphic.Height ; Akt := 0 ;
Printer.BeginDoc;
while Mar > 0 do begin
imSeged := TImage.Create(Application) ;
imSeged.Visible := false ;
if Mar >= 1022 then
Mekkora := 1022 else Mekkora := Mar ;

Printer.Canvas.StretchDraw(Rec,imSeged.Picture.Graphic);
if Mar >= 1022 then
begin Akt := Akt + 1022 ; Mar := Mar - 1022 ;end else
begin Akt := Akt + Mar ; Mar := 0 ; end ;
if Mar > 0 then Printer.NewPage else Printer.EndDoc ;
imSeged.Free ;
except
Printer.Abort;
Printer.EndDoc ;
Screen.Cursor := crDefault ;
imSeged.Free ;
raise;
end;
end ;
end ;
Screen.Cursor := crDefault ;
end;