Laura
26 de Noviembre del 2003

Hola a todos, tengo un problema cuando imprimo directamente desde un formulario, aunque lo configure para que me imprima en apaisado, cuando le da la gana, vuelve a vertical.
Probe un codigo que me dijeron, pero debo de ponerlo mal, alguien me puede orientar.
Yo pongo lo siguiente: printer.Orientation=vbPRPRPPortait 'para imprimir ne apaisado.
Lo pongo en el evento de un boton junto con el codigo para que me imprima el formulario en el que me encuentro, y sale un mensaje diciendo que falta un objeto.
Esto otro tampoco me sirve: Printer.Orientation = vbPRORLandscape
Una de dos, o es que lo estoy poniendo mal..
A ver si me podeis orientar... Gracias

sdemingo
26 de Noviembre del 2003

Pruébalo con un Print Dialog Box y el siguiente código

Private Sub Command1_Click ()
Dim BeginPage, EndPage, NumCopies, Orientation, i
' Set Cancel to True.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Display the Print dialog box.
CommonDialog1.ShowPrinter
' Get user-selected values from the dialog box.
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For i = 1 to NumCopies
' Put code here to send data to your printer.
Next
Exit Sub
ErrHandler:
' User pressed Cancel button.
Exit Sub
End Sub



Un saludo
sdemingo

Laura
26 de Noviembre del 2003

Oye (sdemingo) ... no me funciona me da error en lo de CommonDialog1 Que tengo que hacer con eso?, tengo que crear algo?