FiveTech Software tech support forums

Posted: **Tue Apr 13, 2021 11:22 pm**

Amigos.

Muy buenas tardes.

Tengo un problema por resolver urgente, me estoy dando de cabeza, pero no consigo solucionarlo.

Al imprimir los valores de las variables, estos se imprimen Centrados en cada columna y no alineados a la derecha como cualquier numero o valor.

Por Ejemplo:
Linea 1: 0 ( Con valor cero)
Linea 2: 150.000 (Cualquier valor)

He realizado de todo y no logro dar con la solucion.

Muchos saludos.

Antonio

Dejo el codigo:

Code: Select all Expand view: Function Impri_Deta_Fac(Titu) Local oPrn,nPixVert,nPixHorz,nAnch,nAlto,nAncho_1,nAncho_2,oFont1,oFont2,oFont3,oFont4,oFont5,oFont6,oPen1,oPen2 , nRow,oFont7 TPreview():lListViewHide := .T. PRINT oPrn NAME "EMPRESA 1" PREVIEW oPrn:SetPage(9) // A4 PrnPortrait() ///vertical IF Empty( oPrn:hDC ) MsgStop( OemToAnsi( "¡ No hay IMPRESORA para imprimir !" )) Return NIL EndIF Sele b Go Top nPixVert := oPrn:nVertRes() nPixHorz := oPrn:nHorzRes() IF nPixHorz < 3000 nAnch := 8913290 nAlto := 12255652 nAncho_1 := 4 nAncho_2 := 7 ELSE nAnch := 8913494 nAlto := 12256000 nAncho_1 := 6 nAncho_2 := 11 EndIf DEFINE FONT oFont1 NAME "Courier New" SIZE 0, -10 OF oPrn //Negrita DEFINE FONT oFont2 NAME "Courier New" SIZE 0, -10 BOLD OF oPrn //Negrita DEFINE FONT oFont3 NAME "Arial" SIZE 0, -10 OF oPrn DEFINE FONT oFont4 NAME "Courier New" SIZE 0, -12 BOLD OF oPrn //Negrita DEFINE FONT oFont5 NAME "Courier New" SIZE 0, -9 OF oPrn //Negrita DEFINE FONT oFont6 NAME "Arial" SIZE 0, -7 BOLD OF oPrn //Negrita DEFINE FONT oFont7 NAME "Courier New" SIZE 0, -12 BOLD UNDERLINE OF oPrn //Negrita - Subrayado en Titulos DEFINE PEN oPen1 WIDTH nAncho_1 DEFINE PEN oPen2 WIDTH nAncho_2 Fila=5.10 Fila2=19.10 CantCon=0 PAGE i:=1 Do While I<2 If i=1 // Fona nFil := 1.00 //arriba nCol := 1.00 //izquierda nTop := 2.10 //ALTO nBot := 20.00 //ANCHO aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol ) aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot ) oPrn:Box ( nFil, nCol, nTop, nBot, oPen1 ) oPrn:CmSay ( 1.10, 1.10, "CENTRO PRUEBA" , oFont4 ) oPrn:CmSay ( 1.10, 14.10,'R.U.T.: ' , oFont4 ) oPrn:CmSay ( 1.60, 1.10, 'Dirección: ', oFont2 ) oPrn:CmSay ( 1.60, 14.10,'TELEFONO: ' , oFont2 ) oPrn:CmSay ( 2.4, 10, OemToAnsi(Titu), oFont7,,CLR_BLACK,,PAD_CENTER ) Co:=0 Li:=0.5 Col:=1 oPrn:CmSay ( Li + 3.0, Col + 1 , "Nro", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 1 , "Dia", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 1.65 , "RAYOS......", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 1.65 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 4.05 , "ECOGRAFIAS ", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 4.05 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 6.45 , "LABORATORIO", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 6.45 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 8.85, "CONSULTAS..", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 8.85 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 11.25, "SCANNER....", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 11.25 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 13.65, "ENDOSCOPIA.", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 13.65 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 16.15, "-T O T A L -", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 16.15 , "SEMANA......", oFont6 ) oPrn:cmLine( Li + 3.8,Col + 1,Li + 3.8,19.2 ) li:=Li + 3.6 Do While !Eof() Rx:=(VALRX_FONE + VALRX_FONT + VALRX_FONC) Ec:= (VALEC_FONE + VALEC_FONT + VALEC_FONC) La:= (VALLA_FONE + VALLA_FONT + VALLA_FONC) Sc:= (VALSC_FONE + VALSC_FONT + VALSC_FONC) Co:= (VALCO_FONE + VALCO_FONT + VALCO_FONC) De:= (VALDE_FONE + VALDE_FONT + VALDE_FONC) En:= (VALEN_FONE + VALEN_FONT + VALEN_FONC) Tt:= (Rx + Ec + La + Sc+ Co + De + En) oPrn:CmSay ( Li + 0.40,Col + 1, Subs(Dtoc(b->Fec_Ate),1,2), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 1.65 , Transform(Rx, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 4.05 , Transform(Ec, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 6.45 , Transform(La, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 8.85 , Transform(Sc, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 11.25 , Transform(Co, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 13.65 , Transform(De, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 16.15 , Transform(En, "999,999,999"), oFont6 ) Li:=Li + 0.40 Skip Enddo i:=i+1 Enddo ENDPAGE ENDPRINT oFont1:End() oFont2:End() oFont3:End() oPen1:End() oPen2:End() oFont4:End() oFont5:End() oFont6:End() oFont7:End() Return .t.

Posted: **Wed Apr 14, 2021 9:15 am**

El método CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A ) admite un parámetro nPad que
puede ser:

#define PAD_LEFT 0
#define PAD_RIGHT 1
#define PAD_CENTER 2

Posted: **Wed Apr 14, 2021 11:39 am**

Maestro Antonio.

Muy buen dia.

Muchas gracias por su ayuda.

Ya había probado esta opción al igual que otras, pero el dato sigue Centralizado, me tiene muy complicado, porque el informe se muestra muy incorrectamente.

Espero poder dar solución a la brevedad.

Muchos Saludos
Antonio

Asi aplique el codigo:

Code: Select all Expand view: oPrn:CmSay ( Li + 0.40,Col + 1.65 , Transform(SRx, "999,999,999"), oFont6, , , , 1, )

Posted: **Wed Apr 14, 2021 12:41 pm**

Hola Antonio:
Si tenes la version 16 para adelante de Fivewin, podes usar @ PRINT
De esta manera podes indicar si el texto lo queres a la Derecha, a la Izquierda o Centrado, y en cuantos cms lo queres nostrar.
No te lo pase todo al codigo, pero te puse como para que veas como sería

Code: Select all Expand view: Function Impri_Deta_Fac(Titu) Local oPrn,nPixVert,nPixHorz,nAnch,nAlto,nAncho_1,nAncho_2,oFont1,oFont2,oFont3,oFont4,oFont5,oFont6,oPen1,oPen2 , nRow,oFont7 TPreview():lListViewHide := .T. PRINT oPrn NAME "EMPRESA 1" PREVIEW oPrn:SetPage(9) // A4 PrnPortrait() ///vertical IF Empty( oPrn:hDC ) MsgStop( OemToAnsi( "¡ No hay IMPRESORA para imprimir !" )) Return NIL EndIF Sele b Go Top nPixVert := oPrn:nVertRes() nPixHorz := oPrn:nHorzRes() IF nPixHorz < 3000 nAnch := 8913290 nAlto := 12255652 nAncho_1 := 4 nAncho_2 := 7 ELSE nAnch := 8913494 nAlto := 12256000 nAncho_1 := 6 nAncho_2 := 11 EndIf DEFINE FONT oFont1 NAME "Courier New" SIZE 0, -10 OF oPrn //Negrita DEFINE FONT oFont2 NAME "Courier New" SIZE 0, -10 BOLD OF oPrn //Negrita DEFINE FONT oFont3 NAME "Arial" SIZE 0, -10 OF oPrn DEFINE FONT oFont4 NAME "Courier New" SIZE 0, -12 BOLD OF oPrn //Negrita DEFINE FONT oFont5 NAME "Courier New" SIZE 0, -9 OF oPrn //Negrita DEFINE FONT oFont6 NAME "Arial" SIZE 0, -7 BOLD OF oPrn //Negrita DEFINE FONT oFont7 NAME "Courier New" SIZE 0, -12 BOLD UNDERLINE OF oPrn //Negrita - Subrayado en Titulos DEFINE PEN oPen1 WIDTH nAncho_1 DEFINE PEN oPen2 WIDTH nAncho_2 Fila=5.10 Fila2=19.10 CantCon=0 PAGE i:=1 Do While I<2 If i=1 // Fona nFil := 1.00 //arriba nCol := 1.00 //izquierda nTop := 2.10 //ALTO nBot := 20.00 //ANCHO aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol ) aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot ) oPrn:Box ( nFil, nCol, nTop, nBot, oPen1 ) //oPrn:CmSay ( 1.10, 1.10, "CENTRO PRUEBA" , oFont4 ) @ 1.10, 1.10 PRINT TO oPrn TEXT "CENTRO PRUEBA" ; SIZE 2,1 CM FONT oFont4 ALIGN "C" //oPrn:CmSay ( 1.10, 14.10,'R.U.T.: ' , oFont4 ) @ 1.10, 14.10 PRINT TO oPrn TEXT 'R.U.T.: ' ; SIZE 1,1 CM FONT oFont4 ALIGN "L" //oPrn:CmSay ( 1.60, 1.10, 'Dirección: ', oFont2 ) @ 1.60, 1.10 PRINT TO oPrn TEXT 'Dirección: ' ; SIZE 1,1 CM FONT oFont2 ALIGN "L" //oPrn:CmSay ( 1.60, 14.10,'TELEFONO: ' , oFont2 ) @ 1.60, 14.10 PRINT TO oPrn TEXT 'TELEFONO: ' ; SIZE 1,1 CM FONT oFont2 ALIGN "L" //oPrn:CmSay ( 2.4, 10, OemToAnsi(Titu), oFont7,,CLR_BLACK,,PAD_CENTER ) @ 2.4, 10 PRINT TO oPrn TEXT OemToAnsi(Titu) ; SIZE 1,1 CM FONT oFont7 ALIGN "C" Co:=0 Li:=0.5 Col:=1 //oPrn:CmSay ( Li + 3.0, Col + 1 , "Nro", oFont6 ) @ Li + 3.0, Col + 1 PRINT TO oPrn TEXT "Nro" ; SIZE 1,1 CM FONT oFont6 ALIGN "L" /* Y asi con el resto oPrn:CmSay ( Li + 3.4, Col + 1 , "Dia", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 1.65 , "RAYOS......", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 1.65 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 4.05 , "ECOGRAFIAS ", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 4.05 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 6.45 , "LABORATORIO", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 6.45 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 8.85, "CONSULTAS..", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 8.85 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 11.25, "SCANNER....", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 11.25 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 13.65, "ENDOSCOPIA.", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 13.65 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 16.15, "-T O T A L -", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 16.15 , "SEMANA......", oFont6 ) */ oPrn:cmLine( Li + 3.8,Col + 1,Li + 3.8,19.2 ) li:=Li + 3.6 Do While !Eof() Rx:=(VALRX_FONE + VALRX_FONT + VALRX_FONC) Ec:= (VALEC_FONE + VALEC_FONT + VALEC_FONC) La:= (VALLA_FONE + VALLA_FONT + VALLA_FONC) Sc:= (VALSC_FONE + VALSC_FONT + VALSC_FONC) Co:= (VALCO_FONE + VALCO_FONT + VALCO_FONC) De:= (VALDE_FONE + VALDE_FONT + VALDE_FONC) En:= (VALEN_FONE + VALEN_FONT + VALEN_FONC) Tt:= (Rx + Ec + La + Sc+ Co + De + En) //oPrn:CmSay ( Li + 0.40,Col + 1, Subs(Dtoc(b->Fec_Ate),1,2), oFont6 ) @ Li + 0.40,Col + 1 PRINT TO oPrn TEXT Subs(Dtoc(b->Fec_Ate),1,2) ; SIZE 1,1 CM FONT oFont6 ALIGN "L" //oPrn:CmSay ( Li + 0.40,Col + 1.65 , Transform(Rx, "999,999,999"), oFont6) @ Li + 0.40,Col + 1.65 PRINT TO oPrn TEXT Transform(Rx, "999,999,999") ; SIZE 2,1 CM FONT oFont6 ALIGN "R" //oPrn:CmSay ( Li + 0.40,Col + 4.05 , Transform(Ec, "999,999,999"), oFont6 ) @ Li + 0.40,Col + 4.65 PRINT TO oPrn TEXT Transform(Ec, "999,999,999") ; SIZE 2,1 CM FONT oFont6 ALIGN "R" /* Y asi con el resto oPrn:CmSay ( Li + 0.40,Col + 6.45 , Transform(La, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 8.85 , Transform(Sc, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 11.25 , Transform(Co, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 13.65 , Transform(De, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 16.15 , Transform(En, "999,999,999"), oFont6 ) */ Li:=Li + 0.40 Skip Enddo i:=i+1 Enddo ENDPAGE ENDPRINT oFont1:End() oFont2:End() oFont3:End() oPen1:End() oPen2:End() oFont4:End() oFont5:End() oFont6:End() oFont7:End() Return .t.

Posted: **Wed Apr 14, 2021 12:58 pm**

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40239&sid=70e9b1ed523d85f4e62feffece163f36

Posted: **Wed Apr 14, 2021 6:00 pm**

remtec wrote:Amigos.

Muy buenas tardes.

Tengo un problema por resolver urgente, me estoy dando de cabeza, pero no consigo solucionarlo.

Al imprimir los valores de las variables, estos se imprimen Centrados en cada columna y no alineados a la derecha como cualquier numero o valor.

Por Ejemplo:
Linea 1: 0 ( Con valor cero)
Linea 2: 150.000 (Cualquier valor)

He realizado de todo y no logro dar con la solucion.

Muchos saludos.

Antonio

Dejo el codigo:

Code: Select all Expand view
Function Impri_Deta_Fac(Titu) Local oPrn,nPixVert,nPixHorz,nAnch,nAlto,nAncho_1,nAncho_2,oFont1,oFont2,oFont3,oFont4,oFont5,oFont6,oPen1,oPen2 , nRow,oFont7 TPreview():lListViewHide := .T. PRINT oPrn NAME "EMPRESA 1" PREVIEW oPrn:SetPage(9) // A4 PrnPortrait() ///vertical IF Empty( oPrn:hDC ) MsgStop( OemToAnsi( "¡ No hay IMPRESORA para imprimir !" )) Return NIL EndIF Sele b Go Top nPixVert := oPrn:nVertRes() nPixHorz := oPrn:nHorzRes() IF nPixHorz < 3000 nAnch := 8913290 nAlto := 12255652 nAncho_1 := 4 nAncho_2 := 7 ELSE nAnch := 8913494 nAlto := 12256000 nAncho_1 := 6 nAncho_2 := 11 EndIf DEFINE FONT oFont1 NAME "Courier New" SIZE 0, -10 OF oPrn //Negrita DEFINE FONT oFont2 NAME "Courier New" SIZE 0, -10 BOLD OF oPrn //Negrita DEFINE FONT oFont3 NAME "Arial" SIZE 0, -10 OF oPrn DEFINE FONT oFont4 NAME "Courier New" SIZE 0, -12 BOLD OF oPrn //Negrita DEFINE FONT oFont5 NAME "Courier New" SIZE 0, -9 OF oPrn //Negrita DEFINE FONT oFont6 NAME "Arial" SIZE 0, -7 BOLD OF oPrn //Negrita DEFINE FONT oFont7 NAME "Courier New" SIZE 0, -12 BOLD UNDERLINE OF oPrn //Negrita - Subrayado en Titulos DEFINE PEN oPen1 WIDTH nAncho_1 DEFINE PEN oPen2 WIDTH nAncho_2 Fila=5.10 Fila2=19.10 CantCon=0 PAGE i:=1 Do While I<2 If i=1 // Fona nFil := 1.00 //arriba nCol := 1.00 //izquierda nTop := 2.10 //ALTO nBot := 20.00 //ANCHO aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol ) aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot ) oPrn:Box ( nFil, nCol, nTop, nBot, oPen1 ) oPrn:CmSay ( 1.10, 1.10, "CENTRO PRUEBA" , oFont4 ) oPrn:CmSay ( 1.10, 14.10,'R.U.T.: ' , oFont4 ) oPrn:CmSay ( 1.60, 1.10, 'Dirección: ', oFont2 ) oPrn:CmSay ( 1.60, 14.10,'TELEFONO: ' , oFont2 ) oPrn:CmSay ( 2.4, 10, OemToAnsi(Titu), oFont7,,CLR_BLACK,,PAD_CENTER ) Co:=0 Li:=0.5 Col:=1 oPrn:CmSay ( Li + 3.0, Col + 1 , "Nro", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 1 , "Dia", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 1.65 , "RAYOS......", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 1.65 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 4.05 , "ECOGRAFIAS ", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 4.05 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 6.45 , "LABORATORIO", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 6.45 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 8.85, "CONSULTAS..", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 8.85 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 11.25, "SCANNER....", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 11.25 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 13.65, "ENDOSCOPIA.", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 13.65 , "ELECTRONICO", oFont6 ) oPrn:CmSay ( Li + 3.0, Col + 16.15, "-T O T A L -", oFont6 ) oPrn:CmSay ( Li + 3.4, Col + 16.15 , "SEMANA......", oFont6 ) oPrn:cmLine( Li + 3.8,Col + 1,Li + 3.8,19.2 ) li:=Li + 3.6 Do While !Eof() Rx:=(VALRX_FONE + VALRX_FONT + VALRX_FONC) Ec:= (VALEC_FONE + VALEC_FONT + VALEC_FONC) La:= (VALLA_FONE + VALLA_FONT + VALLA_FONC) Sc:= (VALSC_FONE + VALSC_FONT + VALSC_FONC) Co:= (VALCO_FONE + VALCO_FONT + VALCO_FONC) De:= (VALDE_FONE + VALDE_FONT + VALDE_FONC) En:= (VALEN_FONE + VALEN_FONT + VALEN_FONC) Tt:= (Rx + Ec + La + Sc+ Co + De + En) oPrn:CmSay ( Li + 0.40,Col + 1, Subs(Dtoc(b->Fec_Ate),1,2), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 1.65 , Transform(Rx, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 4.05 , Transform(Ec, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 6.45 , Transform(La, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 8.85 , Transform(Sc, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 11.25 , Transform(Co, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 13.65 , Transform(De, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 16.15 , Transform(En, "999,999,999"), oFont6 ) Li:=Li + 0.40 Skip Enddo i:=i+1 Enddo ENDPAGE ENDPRINT oFont1:End() oFont2:End() oFont3:End() oPen1:End() oPen2:End() oFont4:End() oFont5:End() oFont6:End() oFont7:End() Return .t.

Antonio, parece que son las coordenadas dadas a la impresión.
Por favor sustituye esta parte de tu código y nos dices.

Cambia esto:

Code: Select all Expand view: oPrn:CmSay ( Li + 0.40,Col + 1.65 , Transform(Rx, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 4.05 , Transform(Ec, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 6.45 , Transform(La, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 8.85 , Transform(Sc, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 11.25 , Transform(Co, "999,999,999"), oFont6 ) oPrn:CmSay ( Li + 0.40,Col + 13.65 , Transform(De, "999,999,999"), oFont6) oPrn:CmSay ( Li + 0.40,Col + 16.15 , Transform(En, "999,999,999"), oFont6 )

Por esto:

Code: Select all Expand view: oPrn:CmSay ( Li + 0.40,Col + 3.00 , Transform(Rx, "999,999,999"), oFont6,,,,PAD_RIGHT ) oPrn:CmSay ( Li + 0.40,Col + 5.40 , Transform(Ec, "999,999,999"), oFont6,,,,PAD_RIGHT ) oPrn:CmSay ( Li + 0.40,Col + 7.90 , Transform(La, "999,999,999"), oFont6,,,,PAD_RIGHT ) oPrn:CmSay ( Li + 0.40,Col + 10.30 , Transform(Sc, "999,999,999"), oFont6,,,,PAD_RIGHT ) oPrn:CmSay ( Li + 0.40,Col + 12.70 , Transform(Co, "999,999,999"), oFont6,,,,PAD_RIGHT ) oPrn:CmSay ( Li + 0.40,Col + 15.20 , Transform(De, "999,999,999"), oFont6,,,,PAD_RIGHT ) oPrn:CmSay ( Li + 0.40,Col + 17.70 , Transform(En, "999,999,999"), oFont6,,,,PAD_RIGHT )

Saludos.

Posted: **Wed Apr 14, 2021 9:29 pm**

Antonio, Cesar, Karinha y Francisco.

Muchas gracias por su ayuda y tiempo dedicado, eternamente agradecido.

Kainha y Francisco.

Por el apremio de tiempo, ya había comenzado a modificar el código que me indico Cesar, con algunos ajustes de coordenadas, lo pude solucionar.

Un millón de gracias a todos, disculpen todas las molestias.

Muchos saludos a todos.

Antonio

Posted: **Thu Apr 15, 2021 3:15 pm**

Excelente!! Me alegro que lo hayas solucionado...
Saludos

Posted: **Fri Apr 16, 2021 8:17 am**

Antonio, no te lo tomes a mal por favor, pero los novatos como yo buscamos mucho en el foro, y con el asunto "ayuda urgente", no encontramos nada, si se cambia "ayuda urgente impresión", ya es más interesante. Y encima si luego indicamos solucionado a quien busca ya es una referencia completamente válida.

Venga un abrazo, lo dicho solo es por ayudarnos todos

Jose.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

Posted: **Mon Apr 19, 2021 10:17 pm**

jvtecheto wrote:Antonio, no te lo tomes a mal por favor, pero los novatos como yo buscamos mucho en el foro, y con el asunto "ayuda urgente", no encontramos nada, si se cambia "ayuda urgente impresión", ya es más interesante. Y encima si luego indicamos solucionado a quien busca ya es una referencia completamente válida.

Venga un abrazo, lo dicho solo es por ayudarnos todos

Jose.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

Hola Jose.

Muchas gracias por tu consejo.

Así se mejora la solicitud de ayuda.

Muchos Saludos.
Antonio

FiveTech Software tech support forums

Ayuda Urgente impresión ** SOLUCIONADO

Ayuda Urgente impresión ** SOLUCIONADO

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente

Re: Ayuda Urgente