طباعة أعمدة غير متجاورة عن طريق الفورم

[mohamed.youssef]

السادة الكرام 

اريد زر طباعة نطاق معين من خلال اليوزرفورم يتم طباعة المدى من العمود (A,E,R,S,T) من داخل صفحة التكويد 

مع الشكر

 

78.xlsm

[أبوأحـمـد]

تفضل

Sub PrintReceipt()
Dim LRow As Long
Dim namsh As String
Dim wk, wk2 As Worksheet
Dim x As Integer
Dim check As Boolean
namsh = "temp"
Set wk = Worksheets("التكويد")

For Each wk2 In Worksheets
If wk2.Name Like namsh Then check = True: Exit For
Next
If check = False Then

    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = namsh
    End With
  
 End If
  

Set wk2 = Worksheets(namsh)
 wk2.Range("A1:E9999") = ""
 LRow = wk.Range("A999").End(xlUp).Row

wk.Range("A1:A" & LRow & ",E1:E" & LRow & ",R1:R" & LRow & ",S1:S" & LRow & ",T1:T" & LRow).Copy wk2.Range("A1")
wk2.Columns("A:E").AutoFit
With wk2

   .PageSetup.PrintArea = "A1:E" & LRow
 
    .PrintOut , , , , True, , , , False 'أمر الطباعة

End With
 '  حذف الورقة جديدة
 
    Application.DisplayAlerts = False
        If ThisWorkbook.Worksheets.Count = 1 Then MsgBox "There Is only One Sheet. The Deletion Can't Be Done!", vbCritical: Exit Sub
        If Evaluate("=ISREF('" & namsh & "'!A1)") Then
            Sheets(namsh).Delete
        End If
    Application.DisplayAlerts = True

End Sub

 

[mohamed.youssef]

اخي الكريم الف شكر على المساعدة ولكن بعد اذنك اريد الكود ان اختار اسم الطابعة او اقوم بطباعتها على هيئة pdf لكي اختار الصفحة المراد طباعتها وهل الكود ياتي باخر صف مسجل عليه بيانات

شكرا اخي الكريم مرة اخرى

[أبوأحـمـد]

4 ساعات مضت, mohamed.youssef said:

اريد الكود ان اختار اسم الطابعة او اقوم بطباعتها على هيئة pdf

غير سطر أمر الطباعة

هذا
'    .PrintOut , , , , True, , , , False 'أمر الطباعة
بهذا
Application.Dialogs(xlDialogPrint).Show

 

أقترح تعديل عنوان الموضوع إلى:  طباعة أعمدة غير متجاورة

[mohamed.youssef]

الف شكر استاذي الفاضل ولكن حدث عندي مشكلة حضرتك قمت بعمل كود اظهار رسالة لايوجد رصيد في المخزن تمام ولكن بعد اذنك انا محتاج الكود يتم تطبيقه فقط على اذن الصرف في حالة انه لايوجد رصيد اما بالنسبة للوارد والمرتجع لا اريده يطبق عليه لانه احيانا يأي صنف لايوجد به رصيد افتتاحي واريد ان اعمل  اضافة على الصنف انا مسجل هذا من خلال صفحة ملف التكويد في حالة انه لايوجد رصيد افتتاحي واريد ان اقم باضافة اذن اضافة اتمنى ان اكون وضحت الصورة لحضرتك واسف على الاطالة ومتشكر جدا على المساعدة بارك الله فيك