| Usuario |
GRAN AYUDA con un reporte |
Desconocido
|
| Enviado - 29/11/2004 |
| |
Saludos amigo necesito generar un reporte de esta manera...
RECIBO CTA MONTO
recibo1 cta123 100,00
recibo1 cta456 200,00
total Recivo ....................................300,00
recibo2 cta123 100,00
recibo2 cta789 1.200,00
total recibo...................................1.300,00
recibo3 cta456 500,00
total Recibo ....................................500,00
Total ...........................................2.100,00
HELPP AYUDA CON ESTO cristal report nose me toy reventando las cejas. con data report AAHHHHHHHH!!!!!O_o y con el printer del visual Basic... WoW... me toy jalando als greñas la verdad la poisibilidad era con el printer pero cpara que me keden exactos los numeros alineados como es un reporte financiero mas la estetica y todo eso lo excelente seria un reprote ke le de formato a todo y no tener que formatear todo a mano con el objeto printer. ke es bastante tedioso...
PORR FAAAAA!!! |
| |
|
l_island
117 Mensaje(s)
|
| Enviado - 30/11/2004 |
| |
Creo que a pesar de resultar tedioso el objeto Printer es el mejor para lo que tu deseas. Te dejo por aquí una función muy antigua pero muy util a la hora de colocar textos perfectamente alineados en posiciones específicas del papel.
Espero que te sea de utilidad.
Saludos
l_island
'-------------------------------------------------------------------------------
' Nombre : AjustarTexto
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' Parametros:
' Texto -> El que se desea ajustar.
' AnchoAplicado-> Ancho que acupará el texto.
' Alineacion -> 0-Izquierda, 1-Derecha, 2-Centrado.
' Posx,PosY -> Posición del texto.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' Descripcion:
' Imprime un texto en la posición indicada con el ancho y
' alineación indicados.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' Autor: l_island Ultima Modificación: 4/5/2001
'-------------------------------------------------------------------------------
Private Sub AjustarTexto(texto As String, AnchoAplicado As Long, Alineacion As Integer, POSX As Single, posy As Single)
Dim m As Integer, TamEspacio As Single, EspacioVacio As Single
'Reducir el tamaño del texto hasta tener una longitud menor o igual a la deseada.
m = Len(texto) - 1
TamEspacio = Printer.TextWidth(texto)
Do While TamEspacio > AnchoAplicado
texto = Left(texto, m)
m = m - 1
If m = 0 Then Exit Do
TamEspacio = Printer.TextWidth(texto)
Loop
'Colocar en la posicion deseada.
EspacioVacio = AnchoAplicado - TamEspacio
Printer.CurrentY = posy
Select Case Alineacion
Case 0
Printer.CurrentX = POSX
Case 1 'Derecha
Printer.CurrentX = POSX + EspacioVacio
Case 2 'Centrado
Printer.CurrentX = POSX + EspacioVacio / 2
End Select
Printer.Print texto
End Sub
|
| |
|
Desconocido
|
| Enviado - 30/11/2004 |
| |
| VALE AMIGO MUCHISISMAS GRACIAS. VOYA APLICAR ESA FUNCION ESTABA TRATANOD DE HACER ALGO ASI. PERO ESTA SE VE MAS SENCILLA. YA ME ESTABA DANDO POR DESQUIZIADO =p... ^_^ BIEN TE AVISARE E LOS RESULTDOS.. GRACIAS.!! |
| |
|
|
|
