كيفية جعل الاستعلام برمجيًا في MS Access افتراضيًا إلى الوضع الأفقي عند الطباعة

Question

كيف يمكنني جعل الاستعلام برمجيًا في MS Access افتراضيًا إلى الوضع الأفقي عند طباعته، وتحديدًا عند عرضه كمخطط PivotChart؟أحاول حاليًا القيام بذلك في MS Access 2003، ولكني أرغب في رؤية حل لأي إصدار.

Answer 1

يجب أن تقوم الوظيفة التالية بالخدعة:

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

يجب أن يكون قادرًا على استدعاء هذا من وظيفة autoexec للتأكد من تشغيله دائمًا.

Answer 2

نعم، يقوم استدعاء ahockley بتعيين اتجاه طابعة التطبيق إلى الوضع الأفقي.لقد قمت بالتجربة وكانت ناجحة.أعلم أن هذا لا ينتج جدولاً محوريًا، لكنني لم أقم بإعداد جدول لاستخدامه، لذا فهو يفتح استعلامًا عاديًا ويطبعه.

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

إذا كنت تريد إغلاق الاستعلام بعد طباعته، أضف:

docmd.Close acQuery, "qry1", acSaveNo