I created a datareport, which is running correct. But if I change
the setting of the orientation of the printer to vbPRORLandscape,
the programm is still printing the documents in a portrait-format.

I tried it by changing the orientation with following code:

Dim X As Printer

For Each X In Printers
    If X.DeviceName="MY PRINTERNAME"
        Set Printer=X
        Printer.Orientation=vbPRORLandscape
    End If
Next

Does someone know how to change it correct?

Thank you,
Christian!