FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda Urgente impresi贸n ** SOLUCIONADO
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Ayuda Urgente impresi贸n ** SOLUCIONADO
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 (fw): Select all Collapse
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.
FWH 22.10 - HARBOUR - PELLES C
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ayuda Urgente
Posted: Wed Apr 14, 2021 09: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
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente
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 (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽 oPrn:CmSay ( Li + 0.40,Col + 聽1.65 , Transform(SRx, "999,999,999"), oFont6, , , , 1, 聽)
FWH 22.10 - HARBOUR - PELLES C
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Ayuda Urgente
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 (fw): Select all Collapse
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.
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda Urgente
Posted: 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
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Ayuda Urgente
Posted: Wed Apr 14, 2021 06: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 (fw): Select all Collapse
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 (fw): Select all Collapse
 聽 聽 聽 聽 聽 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 (fw): Select all Collapse
           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
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente
Posted: Wed Apr 14, 2021 09: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
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Ayuda Urgente
Posted: Thu Apr 15, 2021 03:15 PM

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: Ayuda Urgente
Posted: Fri Apr 16, 2021 08: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
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente
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
FWH 22.10 - HARBOUR - PELLES C

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions