2008-09-17 16 views

Répondre

3

La fonction suivante devrait faire l'affaire:

Function SetLandscape() 
    Application.Printer.Orientation = acPRORLandscape 
End Function 

devrait être en mesure d'appeler cela de la fonction AutoExec pour assurer qu'il fonctionne toujours.

0

Oui L'appel d'ahockley définit l'orientation de l'imprimante de l'application sur paysage. J'ai essayé une expérience et ça a bien marché. Je sais que cela ne produit pas de tableau croisé dynamique, mais je n'en ai pas configuré un à utiliser, donc il s'ouvre et imprime une requête régulière.

Private sub 
    Application.Printer.Orientation = acPRORLandscape 
    DoCmd.OpenQuery "qry1", acViewNormal, acReadOnly 
    DoCmd.PrintOut acPrintAll 
End Sub 

Si vous souhaitez fermer la requête après l'impression, ajoutez:

docmd.Close acQuery, "qry1", acSaveNo