![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#6
|
|||
|
|||
Hola, yo uso la impresora generica/solo texto y este procedimiento y me funciona tanto en Win98, Win2000 and WinXP
Código:
procedure DirectPrint( s : string ); var PTBlock : TPassThroughData; begin PTBlock.nLen := Length( s ); StrPCopy( @PTBlock.Data, s ); Escape( printer.handle, PASSTHROUGH, 0, @PTBlock, nil ); end; Saludos. |
|
|
![]() |
|