ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
يستخدم مع عبارة طباعة # أو أسلوب الطباعة لوضع الإخراج.
بناء الجملة
Spc ( n )
وسيطة n المطلوبة هي عدد المسافات المراد إدراجها قبل عرض تعبير التالية أو طباعتها في قائمة.
ملاحظات
إذا كان n أقل من عرض خط الإخراج، فإن موضع الطباعة التالي يتبع على الفور عدد المسافات المطبوعة. إذا كان n أكبر من عرض سطر الإخراج، فإن Spc تحسب موضع الطباعة التالي باستخدام الصيغة:
currentprintposition + (n Mod width)
على سبيل المثال، إذا كان موضع الطباعة الحالي هو 24، فإن عرض سطر الإخراج هو 80، وتحدد Spc(90)، ستبدأ الطباعة التالية في الموضع 34 (موضع الطباعة الحالي + باقي 90/80). إذا كان الفرق بين موضع الطباعة الحالي وعرض خط الإخراج أقل من n (أو n Mod width)، تتخطى الدالة Spc إلى بداية السطر التالي وتنشئ مسافات تساوي n – (العرض – الطباعة الحالية).
ملاحظة: تأكد من أن الأعمدة الجدولية عريضة بما يكفي لاستيعاب الأحرف العريضة.
عند استخدام أسلوب الطباعة بخط متباعد نسبيا، يكون عرض أحرف المسافة المطبوعة باستخدام الدالة Spc دائما متوسط عرض جميع الأحرف في حجم النقطة للخط المختار. ومع ذلك، لا يوجد ارتباط بين عدد الأحرف المطبوعة وعدد الأعمدة ذات العرض الثابت التي تشغلها هذه الأحرف. على سبيل المثال، يشغل الحرف الكبير W أكثر من عمود ثابت العرض ويشغل الحرف السفلي i أقل من عمود ثابت العرض.
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال دالة Spc لوضع الإخراج في ملف وفي النافذة الفورية .
' The Spc function can be used with
' the Print # statement.
Open "TESTFILE" For Output As #1 ' Open file for output.
Print #1, "10 spaces between here"; Spc(10); "and here."
Close #1 ' Close file.
تؤدي العبارة التالية إلى طباعة النص في النافذة الفورية (باستخدام أسلوب الطباعة )، مسبوقا ب 30 مسافات.
Debug.Print Spc(30); "Thirty spaces later..."
