Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: omarinho23 en Febrero 11, 2010, 11:57:50 am
-
Hola a todos de nuevo! n.n bueno como sabran gracias a uds! ssccaann , neo , yvanb , pude terminar mi programa! ahora el pequeño detalle es la impresion.
no tengo problemas solo que quisiera saber como darle mas ancho de impresion y que pueda caver en toda la hoja... no se si me entienden, aqui mando a imprimir en vb y me sale un espacio regular entre la hoja pero quisiera aprovexar casi toda la hoja
ejemplo rudimentario xD
ancho
l---------------l
--
l +* *+
l
largo l
l
l
l
--
el + es hasta donde quiero imprimir
y el * es hasta donde imprimo
quisiera aumentar el ancho de impresion si alguien sabe como hacerlo mediante una opcion, muchas gracias! :D
-
Postea el codigo que usas para imprimir. Puesto que existe muchas respuestas a tu pregunta.
Puede ser la impresora, la configuracion de la página.
Puede ser el codigo que estas usando, en caso que uses el Printer.Print
Puede ser el reporte, en caso que uses alguno, (Cosa que dudo) XD
en fin. Postea lo que haces y te daremos respuestas! Saludos
-
graciasssssssssssssssss!!!!!!!!!!!!!!!! xD
este es mi cod!
Private Sub Imprimir()
Dim rsFicha As ADODB.Recordset
Set rsFicha = New Recordset
rsFicha.Open "Select * FROM certificadoscit9 Where Cod=" & Text15, CNN, adOpenStatic, adLockReadOnly
If rsFicha.RecordCount > 0 Then
Set DataReport6.DataSource = rsFicha
DataReport6.Show
Else
MsgBox "No hay registro para imprimir ", vbInformation
End If
Unload Me
End Sub
-
Bien debes verificar los margenes del reporte...! Y la impresora donde imprimes verificar tambien la configuración de la página...!
-
bueno me e fijado los margenes del reporte y esta al maximo porque luego me sale un error diciendome "el ancho del informe es mayor al ancho del papel " pero solo le e puesto mas ancho por medio centimetro :S i no entiendo porque ... igual no aprovexo como 2 dedos en el lado derecho y 1 1/2 del lado izquiero de la hora... u.u y la impresora es con conex inalambrica y ta configurada como edicion personalizada :S mas depende de como lo diseñe yo u.u
otra cosa.... esta bien escrito este cod para pasar de una base d datos a un form :
Private Sub ChameleonBtn1_Click()
Dim rsFicha As ADODB.Recordset
rsFicha.Open "Select * FROM clientes Where Cod=" & Text15, CNN, adOpenStatic, adLockReadOnly
If rsFicha.RecordCount > 0 Then
Set FrmEditRecep.frm = rsFicha << me sale error "no se encontro el metodo o el miembro de datos"
FrmEditRecep.Show
Else
MsgBox "No hay registro para imprimir ", vbInformation
End If
Unload Me
End Sub
dime si ta bien! o q debo poner... ya q los text box los e asignado igual q en base d datos
-
Los datareport soportan 15.5 cm de contenido no se bien si seran cm u otra medida.
Ahora por ejemplo si aumentas el margen izquiero(leftmargin) entonces sobrepasara la hoja y te mandara el error que mencionas sobre ancho de papel.
Los margenes por defecto de los cuatro lados son de 1600 nose que aprox. para cambiarlo puedes utilizar:
DataReport1.LeftMargin = 500
DataReport1.TopMargin = 500
DataReport1.BottomMargin = 500
DataReport1.TopMargin = 500
-
ola zxs23 muchas gracias! ya me di cuenta onde iba! xD thx thx thx!