أمر فيجوال لطباعة بيانات مع تصفية

[Hamdi Edlbi-khalf]

السلام عليكم 

لقد قمت سابقاً بكتابة هذا الأمر لطباعة نطاق من الخلايا الممتلئة 

 

 و قد أدى الكود الغرض المطلوب 

و لكن عند التصفية فإنه يطبع الملف كاملاً مع صفحات بيضاء مكان الخلايا المخفية بناء على عامل التصفية 

فهل من طريقة لجعل الكود يطبع النطاق بالصورة التي تتم وفق خيارات إكسل الافتراضية .

SUB PRINT1()
FOR I = 2 TO 100
IF RANGE ("A"&I) = "" THEN
IF RANGE ("A"&I-1) <>"" THEN 
RANGE("A1":"P"&1) .PRINTOUT
END IF
END IF
NEXT I
END SUB 

 

[Hamdi Edlbi-khalf]

بالرغم من كثرة الأوامر الخاصة بالطباعة  لكن المشكلة بقيت كما هي ؟!!

[Hamdi Edlbi-khalf]

مساء الخير

لقد جربت أمر الطباعة على  أوفيس ٢٠١٠ و قد أدى المطلوب تماماً .

يبدو أن المشكلة مع أوفيس ٢٠١٦

الذي يكرر الكود لعدة مرات 

و يطبع عدة صفحات فارغة و من ثم يطبع النطاق كما يفترض

تم تعديل مايو 29, 2018 بواسطه Khalf