Formato de Impresion [SOLUCIONADO]

[omarinho23]

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!

[ssccaann43]

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

[omarinho23]

graciasssssssssssssssss!!!!!!!!!!!!!!!! xD

este es mi cod!

Código: [Seleccionar]

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


[ssccaann43]

Bien debes verificar los margenes del reporte...! Y la impresora donde imprimes verificar tambien la configuración de la página...!

[omarinho23]

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

[zxs23]

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

[omarinho23]

ola zxs23 muchas gracias! ya me di cuenta onde iba! xD thx thx thx!