### http://www.lawebdelprogramador.com ###
### RESPUESTA A LA PREGUNTA 49582 - VISUAL BASIC ###


Yo armé algo en Clipper 5.2 que logré que funcionara en una pc vieja.
con visual 6 en vez de 
@  0, 0 Say CHR(27) + "@"        && Inicializa la impresora
tendrías que poner
print #puerto, CHR(27) + "@"  ' para que inicialize



**** imprimimos ****
SET PRINTER TO COM1
SET PRINTER ON
SET DEVICE TO PRINT
*SET PRINTER TO jj.txt


***********************************************************
**** imprimiendo Tiquet  ****
If alltrim(Impresora) = "TU-950 (Tiquet)"
@  0, 0 Say CHR(27) + "@"        && Inicializa la impresora
@  0, 0 Say CHR(27) + "C" + CHR(30) && Selecciona largo 30 para eject (desactiva eject automatico).
@  0, 0 Say CHR(27) + "z" + "1"  && Selecciona impresion por receipt y journal
@  0, 0 Say CHR(27) + "c0" + "3" && Selecciona rollo de ticket (receipt) y journal
@  0, 0 Say CHR(27)+ "!" +CHR(1) && Selecciona letra 7x9
@  3, 9 Say "EDITORIAL TECNICA S.R.L."
@  4,11 Say "RUC: 210354510010"
@  5,10 Say "EDUARDO ACEVEDO 1466"
@  6,11 Say "tel/fax: 401-3746"
@  8, 0 Say Fecha
@  8,11 Say Hora
@  10,0 Say Tipodecomprobante
@  10,15 Say Numerodecomprobante
ii = 10
For i = 1 to Renglon 
	ii = ii + 2
	*ii = i + 11       
	@ ii, 0   Say LEFT(Titulo[i],39)
	@ ii+1, 2 Say alltrim(str(Cantidad[i])) + " x"
	@ ii+1,15 Say Precio[i] Picture "@E 99999.99"
	@ ii+1,30 Say Precio[i] * Cantidad[i] Picture "@E 99999.99"
Next i
ii = ii + 2
@ ii, 0 Say Replicate ("-", 39)
ii = ii + 1
@ ii,24 Say Total             Picture "@E 99999.99"
ii = ii + 2
@ ii, 0 Say Replicate ("-", 39)
ii = ii + 2
@ ii, 5 Say "GRACIAS POR SU PREFERENCIA"
ii = ii + 1
@ ii, 5 Say "=========================="
for i = 1 to 10
	? 
next i
? CHR(27)+"i"                && Comando de corte del papel
? CHR(27) + "@"              && Inicializa la impresora

Endif




******************************************************************
**** imprimiendo boleta ****
If alltrim(Impresora) <> "TU-950 (Tiquet)"
@   0,  0 Say CHR(27) + "@"           && Inicializa la impresora
@   0,  0 Say CHR(27) + "c0" + CHR(4) && Selecciona slip paper ( facturas )
@   0,  0 Say Chr(27) + "!" + Chr(1)  && Selecciona Letra 7x9
@  3,44 Say Left(Cliente,20)
@  3,70 Say TipoDeComprobante
@  4,46 Say Left(Direccion,20)
@  5,70 Say alltrim(str(NumeroDeComprobante))
If Val(RUC) = 0
	@  5,46 Say "Consumo final" 
ELSE
	@  5,46 Say alltrim(RUC)
End if
@  6,8 Say alltrim(Fecha) + " " + alltrim(Hora)
For i = 1 To Renglon
	LPos = i + 7
	@ LPos,7   Say alltrim(str(Cantidad[i]))
	@ LPos,13  Say Titulo[i]
	@ LPos,50  Say Precio[i] Picture "@E 99999.99"
	@ LPos,66  Say Precio[i] * Cantidad[i] Picture "@E 99999.99"
	* @ LPos,77 Say "(" + Tipo[i] + ")"
Next i
@ 19,74 Say Subtotal          Picture "@E 99999.99"
@ 20,68 Say alltrim(str(Descuento))
@ 20,71 Say "%"
@ 20,74 Say ImporteDes        Picture "@E 99999.99"
@ 21,74 Say Total-ImporteSena Picture "@E 99999.99"
If ImporteTarjeta <> 0 
	@ 22,35 Say left(Tarjeta,15)
	@ 22,51 Say ImporteTarjeta  Picture "@E  99999.99"
Endif
If ImporteSena <> 0
	@ 23,35 Say "Se" + chr(164) + "a "
	@ 23,41 Say ImporteSena Picture "@E  99999.99"
End if
If ImporteCheque <> 0 
	@ 23,60 Say "En Cheque"
	@ 23,71 Say ImporteCheque Picture "@E  99999.99"
End if
If Efectivo <> 0 
	@ 24,35 Say "Efectivo"
	@ 24,44 Say Efectivo  Picture "@E  99999.99"
End if
*If Dolares <> 0 
*   @ 24,60 Say "U$S"
*   @ 25,71 Say Dolares Picture "@E  99999.99"
*   @ 25,71 Say "(" + alltrim(TipoDeCambio) + ")"
*End if

? CHR(27) + "@"              && Inicializa la impresora

***************************************************
***  JOURNAL **
@  0, 0 Say CHR(27) + "@"        && Inicializa la impresora
@  0, 0 Say CHR(27) + "C" + CHR(30) && Selecciona largo 30 para eject (desactiva eject automatico).
@   0,  0 Say CHR(27) + "c0" + CHR(1) && Selecciona slip paper ( facturas )
*@  0, 0 Say CHR(27) + "z" + "0"  && Selecciona impresion por receipt y journal
*@  0, 0 Say CHR(27) + "c0" + "3" && Selecciona rollo de ticket (receipt) y journal
*@  0, 0 Say CHR(27) + "c0" + "J" && DES? Selecciona rollo de ticket (receipt) y journal
*@  0, 0 Say CHR(27)+ "!" +CHR(1) && Selecciona letra 7x9
@  8, 0 Say Fecha
@  8,11 Say Hora
@  10,0 Say Tipodecomprobante
@  10,15 Say Numerodecomprobante
ii = 12
For i = 1 to Renglon 
	ii = ii + 2
	@ ii, 0   Say LEFT(Titulo[i]+space(40) ,39)
	@ ii+1, 2 Say alltrim(str(Cantidad[i])) + " x"
	@ ii+1,15 Say Precio[i] Picture "@E 99999.99"
	@ ii+1,30 Say Precio[i] * Cantidad[i] Picture "@E 99999.99"
Next i
ii = ii + 2
@ ii, 0 Say Replicate ("-", 39)
ii = ii + 1
@ ii,24 Say Total             Picture "@E 99999.99"
ii = ii + 2
@ ii, 0 Say Replicate ("=", 39)
? CHR(27) + "@"              && Inicializa la impresora

Endif


*** Devolvemos a la pantalla ****
set device to screen
Set Print to