Jump to content

Archived

This topic is now archived and is closed to further replies.

Fedebarri

Imprimir parte de un formulario ( Userfrom )

Recommended Posts

Buenas,

¿ Se puede imprimir parte de un formulario (Userfrom) ?, quería imprimir parte de un formulario, es decir que no salga el listado inferior (listbox), ni los botones (Commabutton) .
Con el código que tengo actualmente me imprime todo , como si de una foto se tratase.

Código actual

Private Sub imprimir_Click()
form_pedido.printform
End Sub

 

PD: no subo el formulario porque todavía no lo he creado, en caso de que si que se pueda hacer, añadiré el cuadro de lista y botones y lo subo en caso de no funcionar.

Gracias

Share this post


Link to post
Share on other sites

Gracias,

No es exactamente lo que busco, porque el formulario es un albaran y le uso para imprimir albaranes, no puedo hacer invisible los objetos que no voy a imprimir cada vez que saco un pedido, no se si seria posible meterlo todo de un marco ( Frame) y que imprima solo el contenido y las dimensiones del frame, te tal manera que el resto le tenga presente para modificar o eliminar pero no en la hoja de impresión,

Por lo que comentas creo que esa opción que tengo en mente no es posible y solo es posible tal y como dices ocultando los objetos, le daré unas vueltas al coco a ver si se me ocurre otra opción

Gracias por tu rápida respuesta

Share this post


Link to post
Share on other sites

Yo lo que hago es enviar los datos del form a una hoja y desde hay los imprimo

On Error Resume Next
conta = 0
For x = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(x) = True Then
    conta = conta + 1
    End If
Next x
If conta = 0 Then
MsgBox "Debe seleccionar un item para copiar en hoja de Excel", vbInformation, "AVISO"
Exit Sub
End If

Set a = Sheets("Listado")
filaedit = a.Range("A" & Rows.Count).End(xlUp).Row + 1
fila = Me.ListBox1.ListIndex
a.Cells(filaedit, "A") = ListBox1.List(fila, 0)
a.Cells(filaedit, "B") = ListBox1.List(fila, 1)
a.Cells(filaedit, "C") = ListBox1.List(fila, 2)
a.Cells(filaedit, "D") = ListBox1.List(fila, 3)
a.Cells(filaedit, "E") = ListBox1.List(fila, 4)
a.Cells(filaedit, "F") = ListBox1.List(fila, 5)
a.Cells(filaedit, "G") = ListBox1.List(fila, 6)
a.Cells(filaedit, "H") = ListBox1.List(fila, 7)
a.Cells(filaedit, "I") = ListBox1.List(fila, 8)


Sheets("Listado").Select
Range("A1:T20").Select 'seleccionar rango de los datos
ActiveWindow.SelectedSheets.PrintPreview

Next
Unload Me

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy