FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Ayuda Urgente impresión ** SOLUCIONADO

Post a reply

Ayuda Urgente impresión ** SOLUCIONADO

Postby remtec » 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  RUN

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.

 
Last edited by remtec on Mon Apr 19, 2021 10:14 pm, edited 1 time in total.
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm
Top

Re: Ayuda Urgente

Postby Antonio Linares » 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42127
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Re: Ayuda Urgente

Postby remtec » 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  RUN

                oPrn:CmSay ( Li + 0.40,Col +  1.65 , Transform(SRx, "999,999,999"), oFont6, , , , 1,  )

 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm
Top

Re: Ayuda Urgente

Postby cmsoft » 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  RUN
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.
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina
Top

Re: Ayuda Urgente

Postby karinha » Wed Apr 14, 2021 12:58 pm

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40239&sid=70e9b1ed523d85f4e62feffece163f36
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7846
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: Ayuda Urgente

Postby FranciscoA » 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  RUN

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  RUN
          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  RUN
          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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.
Top

Re: Ayuda Urgente

Postby remtec » 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
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm
Top

Re: Ayuda Urgente

Postby cmsoft » Thu Apr 15, 2021 3:15 pm

Excelente!! Me alegro que lo hayas solucionado...
Saludos
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina
Top

Re: Ayuda Urgente

Postby jvtecheto » 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
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
User avatar
jvtecheto
 
Posts: 600
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain
Top

Re: Ayuda Urgente

Postby remtec » 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
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 44 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group