|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - PAPELUCHO
Páginas: [1]
1
« en: Martes 15 de Agosto de 2006, 00:49 »
ESTIMADO ARKANTOS
LO REALICE COMO LO SEÑALAS PERO AHORA EL PROBLEMA
ES QUE LA IMPRESION DE EL TEXT MOTIVO NO SALE EN EL MARGEN
SEÑALADO SINO QUE AL FINAL DE LA HOJA UNA LINEA Y LA OTRA LINEA
SALE EN OTRA HOJA AL FINAL TAMBIEN.
DE ANTEMANO MUCHAS GRACIAS POR LA AYUDA PRESTADA.-
2
« en: Sábado 12 de Agosto de 2006, 01:03 »
Hola estimados amigos
Tengo el siguiente Problema, en un form tengo un boton para imprimir con el siguiente codigo :
Private Sub Btnimprimir_Click()
Printer.ScaleMode = vbCentimeters
Printer.PaperSize = vbPRPSFolio
Printer.FontName = "COURIER NEW "
Printer.FontSize = 12
Printer.FontBold = True
Printer.CurrentX = 2.5
Printer.CurrentY = 2.5
Printer.Print NRO_CARGO
Printer.CurrentX = 1.5
Printer.CurrentY = 3.5
Printer.Print FE_CARGO
Printer.CurrentX = 1
Printer.CurrentY = 5.5
Printer.Print NOM
Printer.CurrentX = 11
Printer.CurrentY = 5.7
Printer.Print RUT
Printer.CurrentX = 1
Printer.CurrentY = 6.8
Printer.Print DIRE
Printer.CurrentX = 10
Printer.CurrentY = 6.8
Printer.Print CIU
Printer.CurrentX = 16
Printer.CurrentY = 2.2
Printer.Print DCTO
Printer.CurrentX = 17
Printer.CurrentY = 3.2
Printer.Print NRO_DCTO
Printer.CurrentX = 16.8
Printer.CurrentY = 4
Printer.Print FE_DCTO
Printer.CurrentX = 16.3
Printer.CurrentY = 15
Printer.Print CTA1
Printer.CurrentX = 17.7
Printer.CurrentY = 15
Printer.Print VAL_CTA1
Printer.CurrentX = 16.3
Printer.CurrentY = 15.8
Printer.Print CTA2
Printer.CurrentX = 17.7
Printer.CurrentY = 15.8
Printer.Print VAL_CTA2
Printer.CurrentX = 4.5
Printer.CurrentY = 21.7
Printer.Print RESOL
Printer.CurrentX = 8.5
Printer.CurrentY = 21.7
Printer.Print FE_RESOL
Printer.CurrentX = 17.7
Printer.CurrentY = 20.7
Printer.Print TOTAL
Printer.CurrentX = 13
Printer.CurrentY = 29
Printer.Print FUNCIONARIO
Printer.CurrentX = 1.5
Printer.CurrentY = 8.5
imprimeLineas MOTIVO, 70
Printer.EndDoc
End Sub
y en un modulo esta funcion para imprimir lo que contiene el TEXT MOTIVO, ya que este esta con propiedad mulltiline= True
Public Sub imprimeLineas(Texto As Object, Linea As Integer)
Dim Bloque As String
'Numero de caracteres = NumC
'Numero de Bloques = NumB
Dim I As Integer
Dim NumC, NumB As Integer
NumC = Len(Texto.Text)
If NumC > Linea Then
NumB = NumC \ Linea
For I = 0 To NumB
Texto.SelStart = (Linea * I)
Texto.SelLength = Linea
Bloque = Texto.SelText
Printer.Print Bloque
Next I
Else
Printer.Print Texto.Text
End If
Printer.EndDoc
End Sub
El problema se sucita que al imprimir el campo MOTIVO la primera linea lo hace respetando el margen asignado Printer.CurrentX = 1.5
Printer.CurrentY = 8.5
PERO AL IMPRIMIR LA SEGUNDA LINEA Y LAS SIGUIENTES SE DESCUADRA YA QUE EMPIEZA A IMPRIMIR CASI EN EL BORDE IZQUIERDO DE LA HOJA,
¿ Como lo puedo hacer para que me siga imprimiendo la 2da y posteriorers lineas con los margenes ya dados y nos se descuadre?
Si me pueden echar una manito
De antemano muchas gracias
3
« en: Lunes 7 de Agosto de 2006, 21:49 »
estimado diablo rojo
de antemano te agradezco las correcciones que me hiciste, pero sabes me sigue saliendo error, cuando doy el primer aceptar me arroja bien el mensaje, despues ingreso un nuevo registro y al aceptar me sale error nro 3420, objeto no es valido o no tiene valor.
ya no se que hacer
favor si me echas una mano
adjunto va el programa con la bd y el error que me sale
4
« en: Viernes 4 de Agosto de 2006, 15:49 »
AMIGOS ADJUNTO VA EL PROYECTO CON LA BASE DATOS
DIABLOROJO : LO HICE COMO ME LO SEÑALAS, PERO IGUAL ME SALE ERROR
EL CUAL ADJUNTO TAMBIEN
5
« en: Viernes 4 de Agosto de 2006, 00:30 »
HOLA AMIGOS
TENGO LA SGTE. INQUIETUD, EN UN FORM. TENGO ENTRE OTROS UN TEXT NRO_CARGO, QUE AL HACER CLICK EN EL BOTON ACEPTAR GUARDA LOS REGISTROS EN UN BD ACCESS 2000, EL PROBLEMA ES QUE EL TEXT NRO_CARGO ( QUE ESTA CON VISIBLE FALSE) ESTA CON UNA FUNCION EL CUAL DBERIA AUMENTAR UN REGISTRO AL ULTIMO NUMERO, PERO ME SALE UN ERROR 3027, NO SE PUEDE ACTUALIZAR BASE DATOS, OBJETO SOLO COMO LECTURA, SIN EMBARGO, AL HACER VISIBLE EL TEXT NRO_CARGO E INGRESAR MANUALMENTE EL NUMERO, ME GUARDA LOS REGISTROS SIN PROBLEMAS, DANDO EL MENSAJE QUE SE HA ALMACENADO.
ESTOY USANDO DAO 3.6
FAVOR SI ME AYUDAN, YA QUE ME GUSTARIA MANTENER CON VISIBLE FALSE EL TEXT NRO_CARGO Y HACER MEDIANTE UNA FUNCION EL CORRELATIVO
SALUDOS
ADJUNTO VA EL PROYECTO
6
« en: Sábado 29 de Julio de 2006, 00:51 »
SALUDOS AMIGOS
TENGO UN PROBLEMA QUE ME QUITA EL SUEÑO, LES EXPLICO, EN UN FORM TENGO 5 TEXT Y UN COMMAND
EL COMMAND HACE UN CALCULO EN REFERENCIA A UN OPTION ELEGIDO SEA GENERAL O RECARGO, SI ELIGE GENERAL HACE EL SIGUIENTE CALCULO
MONTO POR 6% = ADV
MONTO + ADV POR 19% = IVA
LOS VALORES DE ADV + IVA = TOTAL
ME SALE BIEN EL CALCULO DEL ADV PERO EL DEL IVA ME SALE ERRONEO, ME ARROJA UN VALOR EQUIVOCO EJ: EN MONTO PONGO US$ 1.000,00 EL ADV ME SALE BIEN ( 60,00) PERO EL IVA ME SALE US$ 1.011,40 SIENDO QUE DEBE SER US$ 201,40, AL SALIR ESTE CALCULO MALO, POR ENDE TAMBIEN ME SALE ERRONEO EL TOTAL
SI ELIGE RECARGO HACE EL SIGUIENTE CALCULO
MONTO POR 6% = ADV
MONTO + CTA_ OTRO1 + ADV Y EL RESULTADO DE ESTA SUMA POR 19% = IVA
LOS VALORES DE ADV + IVA + CTA_OTRO1 = TOTAL
EN ESTE CASO ME SALE BIEN EL CALCULO DEL ADV Y CTA_OTRO1 PERO EL TAMBIEN COMO EN EL CASO ANTERIRO SALE ERRONEO EL IVA
FAVOR SI PUEDEN AYUDARME, ESTE CALCULO ES VITAL PARA UN PROYECTO QUE ESTOY REALIZANDO
PD: ADJUNTO VA EL PROYECTO EN .ZIP
7
« en: Martes 11 de Julio de 2006, 20:23 »
HOLA AMIGOS
TENGO LA SIGUIENTE DUDA
EN UN FORM TENGO UNA CONSULTA POR FECHAS, LA CUAL EJECUTO BIEN
Y CUYO REGISTROS SOLICITADOS ME LOS MUESTRA EN UN MSFLEXGRID, LA DUDA QUE TENGO SI CON UN BOTON PUEDO MANDAR ESTOS REGISTROS A UN HTML, NO SE SI SE PODRA, ESTOY USANDO VISUAL BASIC 5, SI TIENEN ALGUN EJEMPLO, PASOS A SEGUIR O UN LINK EN DONDE PUEDA ACLARAR ESTA DUDA.
RESUMIENDO ES PASAR LOS DATOS DE MSFLEXGRID A HTML
ESTARE MUY AGRADECIDO
Páginas: [1]
|
|
|
Mostrar Mensajes
