Últimos mensajes - Powered by IBM

Palabras claves

Imprimir Factura

25/05/2007 - 18:58 por Carmen | Informe spam

Hola Grupo, quisiera haceros la siguiente pregunta.

Tengo un libro con dos hojas: DatosCliente y Factura, para rellenar la
primera de ellas lo hago a través de un formulario y relleno los campos:
Destinatario, cantidad y persona que hace la entrega. Hay otros campos que
me los rellena de forma automática, como son la fecha y hora. Hasta aquí
todo bien. El problema surge cuando voy a imprimir la factura que tengo en
la hoja "Factura", tengo que abrirla y dentro de la celda "número de
factura" poner el número de la factura que quiero imprimir, la 1, 2, 3,
etc..Automáticamente recoge los datos de la fila, y luego ir a imprimir, así
imprimo los datos deseados.

Quisiera hacerlo poniendo algún botón en la hoja DatosCliente, que
permitiera imprimir la factura con los últimos datos que he introducido,
pinchando en algún botón que ponga, o similar.

Podríais decirme como hacerlo. Muchas gracias y un saludo

Siga el debate

13 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Carmen

26/05/2007 - 20:59 | Informe spam

He creado el botón y le he puesto el código que aparece en el ejemplo que me
has dicho, he puesto el nombre de la impresora (es la única modificación que
he realizado) pero no funciona. Te envio el código y te digo donde se pone
todo en amarillo

Private Sub CommandButton1_Click()
'Aqui mandas a imprimir la hoja Impreso, en la impresora predeterminada
Sheets("HP Desing Jet 650C").PrintOut Copies:=1, Collate:=True (ESTA
LINEA SE PONE TODA EN AMARILLO)

'Aqui se vuelve a la hoja Pedido,se desprotege la hoja, se aumenta en 1 el
numero de pedido, y se vuelve a proteger
Sheets("pedido").Unprotect "ayuda"
Range("b3").Value = Range("b3").Value + 1
ActiveSheet.Protect "ayuda", DrawingObjects:=True, Contents:=True,
Scenarios:=True

'Aqui se borran los datos ya usados
Range("C7").ClearContents
Range("B14:B21").ClearContents
Range("E14:E21").ClearContents
Range("C7").Select
End Sub

Responder a este mensaje

#7 Esteban Dido

26/05/2007 - 21:28 | Informe spam

Hola Carmen,

Intenta lo siguiente:
cambia la línea
Sheets("HP Desing Jet 650C").PrintOut Copies:=1, Collate:=True
por las siguientes dos líneas:
Application.ActivePrinter = "HP Design Jet 650C en EPUSB1:"
Sheets("Nombre_de_tu_hoja").PrintOut Copies:=1, Collate:=True

(Si la impresora está conectada al puerto LPT1 cambia EPUSB1 por LPT1)
Saludos
Esteban

"Carmen" <carmenARROBAhotmail.com> escribió en el mensaje
news:

He creado el botón y le he puesto el código que aparece en el ejemplo que

has dicho, he puesto el nombre de la impresora (es la única modificación

que

he realizado) pero no funciona. Te envio el código y te digo donde se pone
todo en amarillo

Private Sub CommandButton1_Click()
'Aqui mandas a imprimir la hoja Impreso, en la impresora predeterminada
Sheets("HP Desing Jet 650C").PrintOut Copies:=1, Collate:=True (ESTA
LINEA SE PONE TODA EN AMARILLO)

'Aqui se vuelve a la hoja Pedido,se desprotege la hoja, se aumenta en 1 el
numero de pedido, y se vuelve a proteger
Sheets("pedido").Unprotect "ayuda"
Range("b3").Value = Range("b3").Value + 1
ActiveSheet.Protect "ayuda", DrawingObjects:=True, Contents:=True,
Scenarios:=True

'Aqui se borran los datos ya usados
Range("C7").ClearContents
Range("B14:B21").ClearContents
Range("E14:E21").ClearContents
Range("C7").Select
End Sub

Responder a este mensaje

#8 Carmen

26/05/2007 - 21:59 | Informe spam

Hola Esteban, gracias por tu aportación. He realizado las modificaciones que
me comentas y ahora no me da error pero no imprime.Puse el LPT1 que es donde
la tengo conectada.
Cuando se llega a tener casi todo terminado da un poco de rabia el no poder
terminar todo, pero así son las cosas.
No se que puede pasar, todo parece ir bien.
Gracias y un saludo
Carmen

Responder a este mensaje

#9 Esteban Dido

26/05/2007 - 23:23 | Informe spam

Hola Carmen,

Supongo que en el código donce dice "Nombre_de_tu_hoja" escribiste
exactamente el nombre de la hoja que quieres imprimir.

Esteban

"Carmen" <carmenARROBAhotmail.com> escribió en el mensaje
news:e#

Hola Esteban, gracias por tu aportación. He realizado las modificaciones

que

me comentas y ahora no me da error pero no imprime.Puse el LPT1 que es

donde

la tengo conectada.
Cuando se llega a tener casi todo terminado da un poco de rabia el no

poder

terminar todo, pero así son las cosas.
No se que puede pasar, todo parece ir bien.
Gracias y un saludo
Carmen

Responder a este mensaje

#10 Carmen

26/05/2007 - 23:44 | Informe spam

Si, esta puesto el nombre de la hoja, y da la sensación de que va a
funcionar, pero luego no pasa nada. Seguro que es alguna cosilla que queda
suelta, bueno seguiré intentando a ver si lo consigo.
Gracias y un saludo
Carmen

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3

Busqueda sugerida