10/02/2009, 20:44
|
| | | Fecha de Ingreso: agosto-2008
Mensajes: 32
Antigüedad: 16 años, 9 meses Puntos: 0 | |
| Respuesta: Imprimier reporte Horizontal
Hola Txoco y otros amigos, por ahi me encontre este codigo, lo use y me envia a office oneNote aqui si me permite escoger el tipo de impresion vertical u orizontal, pero es un poco mas lento el asunto ya que no me hace la impresion directa, sin embargo del ahogado el sombrero. Si tenes alguna sugerencia con respecto al mismo aqui te lo mando para que lo veas. Gracias
Dim instance As Printer
Private Sub Command1_Click()
'Dim Printer As New Printer
If Printer.Height > Printer.Width Then
Printer.Orientation = vbPRORPortrait
Else
Printer.Orientation = vbPRORLandscape
End If
Me.PrintForm
End Sub |