Como imprimir este calendario[SOLUCIONADO]

[Baldur]

Hola!
Estoy desarrollando una pequeña aplicación para mi padre, para que registre todo lo que hace cada día en la empresa.

El caso es que quiere que al final se le imprima un calendario con un resumen en cada día de lo que hizo.

Yo por ahora tengo esto en visual basic:
http://www.baldurdesing.es/pruebas/descargas/otros/calendario.JPG

Pero no sé como hacer para que imprimir un calendario como ese con un resumen en cada día de lo que hizo. Además de que, como se puede ver en esa imagen, aún poniendo la letra a 4, que ya ni se ve lo que pone, pues no sé como hacer que quepa todo bien en un A4, con el resumen de cada día .

Necesito ayuda, para imprimir eso tal cual, osea, él lo que quiere es eso, pero impreso, y que se pueda llegar a leer la letra claro...xD

Espero que me podais ayudar...

Un Saludo y muchas Gracias!

[David]

Así como está dudo mucho que quepa en un A4, pero puedes intentar agrandar un poco más las letras, luego mandar a imprimir la ventana con Me.PrintForm. O de lo contrario prueba con este código que te permite imprimir la ventana ajustada a la hoja: http://www.forosdelweb.com/f69/vb6-i...pagina-582233/ (En este caso una opción sería cambiar Printer.Orientation e imprimir en forma horizontal).

[Baldur]

Gracias.
Pero he probado lo de printer.oritentation=vbPRORLandscape
Y si lo pongo despues de
Printer.PaintPicture picImprimir.Picture, 0, 0, Printer.ScaleWidth, (Me.ScaleHeight * Printer.ScaleWidth) / Me.ScaleWidth, , , Me.ScaleWidth, Me.ScaleHeight

Me dice: 'No se puede establecer la propiedad orientation en una página'
Y si lo pongo antes me dice:'El valor de la propiedad no es válido'

Que hago?

Gracias y un Saludo!

[David]

¡Qué extraño!, sí, definitivamente debe ser antes del PaintPicture, pero me extraña que no funcione, ¿has probado colocar el valor de la constante (2) directamente?. Así:

Código:

Printer.Orientation = 2

[Baldur]

si, probé y da el mismo fallo

[David]

Iniciado por Alejandro_88

si, probé y da el mismo fallo

Puedes abrir un proyecto nuevo, colocar solo el Printer.Orientation = 2 y mira si es realmente eso lo que te está dando error, porque en mi máquina funciona perfectamente...

[Baldur]

ok, lo probaré a la noche cuando vuelva, que ahora tengo que salir.

gracias!

[Baldur]

Pues sí, he probado con un proyecto nuevo y ahí sí funciona....

Pues...y ahora que hago???xDxD...jejeje.

No hay forma de mostra una ventana de elección de impresora y demás opciones??las commonDialog no? el problema es que no sé como usarla en este caso, ya que únicamente las he usado para abrir o guardas cosas...

[David]

Aquí tienes un ejemplo de cómo hacerlo: http://www.recursosvisualbasic.com.a...g-imprimir.htm

P.S.: si te funciona en un proyecto nuevo significa que el error está en el PaintPicture, quizás para que funcione en orientación horizontal debes cambiar Width por Height y viceversa...

[Baldur]

Gracias.
Hace rato lo soluciné de la siguiente forma:

Código:

Private Sub btnImprimir_Click()
On Error GoTo manipularErrorImprimir

comDia.CancelError = True
picImprimir.Picture = CaptureClient(Me)
comDia.Orientation = cdlLandscape
comDia.ShowPrinter
Printer.Orientation = comDia.Orientation
Printer.PaintPicture picImprimir.Picture, 0, 0, Printer.ScaleWidth, (Me.ScaleHeight * Printer.ScaleWidth) / Me.ScaleWidth, , , Me.ScaleWidth, Me.ScaleHeight
Printer.EndDoc


salirImprimir:
    Exit Sub
    
manipularErrorImprimir:
If Err.Number = cdlCancel Then Exit Sub
MsgBox Err.Description
Resume salirImprimir
End Sub

No sé si es la más correcta o nó, pero funcionar funciona.

Gracias de todos modos, y por todo lo anterior.

Un Saludo y Gracias!

[David]

Sí, en programación normalmente es difícil decir cuál es la forma más correcta de resolver un problema. No obstante, si te funciona, bastante bien .

¿Has logrado imprimir como querías?

[Baldur]

Si, imprime perfectamente.

[Baldur]

Una última pregunta.

No hay forma de poner por ejemplo, sólo el número del mes en negrita o en un tamaño superior al resto de letras de la textbox???

Es decir, tal y como aparece en la imagen, pero con el número en negrita o con uno o dos números más de tamaño...

Se puede? Si es así, como?

[David]

Iniciado por Alejandro_88

Una última pregunta.

No hay forma de poner por ejemplo, sólo el número del mes en negrita o en un tamaño superior al resto de letras de la textbox???

Es decir, tal y como aparece en la imagen, pero con el número en negrita o con uno o dos números más de tamaño...

Se puede? Si es así, como?

En un TextBox eso no es posible, solo puedes hacerlo con un RichTextBox o poniendo en un Label o TextBox separado...

[Baldur]

Ok, gracias!