اشرف النعاس قام بنشر يوليو 7, 2016 مشاركة قام بنشر يوليو 7, 2016 أريد كود طباعة ورقة في sheet 1 و ايضا طباعة ورقة أخرى في sheet 2 أحدد انا فيها عدد النسخ و ايضا الطابعة بداخل الكود نفسه و ايضا لذي سؤال هل استطيع طباعة ورقتين مختلفتين بكود واحد فقط ؟ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 8, 2016 مشاركة قام بنشر يوليو 8, 2016 أخي الكريم أشرف النعاس قم بالإطلاع على الرابط التالي فيه ما تطلب إن شاء الله الرابط من هنا رابط هذا التعليق شارك More sharing options...
اشرف النعاس قام بنشر يوليو 8, 2016 الكاتب مشاركة قام بنشر يوليو 8, 2016 بارك الله فيك اخي ياسر دائما مبدع هذا ما طلبته .... اريد فقط تعديل على الكود بحيت احدد انا الاوراق التي اختار منها فعلى سبيل المتال اريد ان تظهر لي " اختار مابين sheet1 و sheet 3 و اريد ايضا كيف احدد انا اسم الصفحة تلقائيا ضمن الكود دون تظهر لي قائمة اختيار sheet رابط هذا التعليق شارك More sharing options...
اشرف النعاس قام بنشر يوليو 9, 2016 الكاتب مشاركة قام بنشر يوليو 9, 2016 هل من رد اخي ياسر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 9, 2016 مشاركة قام بنشر يوليو 9, 2016 أخي الكريم أشرف النعاس أعتقد أن الكود مرن ويمكنك من اختيار أوراق العمل المطلوب طباعتها بسهولة .. لا أفهم الفكرة من اختيار ما بين ورقتي عمل .. أما بخصوص الجزء الثاني من طلبك فلم أستطع فهمه بشكل كامل رابط هذا التعليق شارك More sharing options...
اشرف النعاس قام بنشر يوليو 9, 2016 الكاتب مشاركة قام بنشر يوليو 9, 2016 اخي ياسر ما اريده فقط كيف اغير الكود بحيت يتم طباعة sheet3 تلقائيا فقط رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 9, 2016 مشاركة قام بنشر يوليو 9, 2016 جرب التعديل التالي وإن كنت أحبذ التعامل مع الكود الأصلي واختيار الأوراق المطلوب طباعتها Sub PrintSelectedSheets() Dim I As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim Cb As CheckBox Dim Numcop As Long Dim Cnt As Integer Dim X As String Application.Dialogs(xlDialogPrinterSetup).Show Application.ScreenUpdating = False If ActiveWorkbook.ProtectStructure Then MsgBox "المصنف محمي", vbCritical Exit Sub End If Set CurrentSheet = ActiveSheet X = CurrentSheet.Name Set PrintDlg = ActiveWorkbook.DialogSheets.Add SheetCount = 0 TopPos = 40 For I = 1 To ActiveWorkbook.Worksheets.Count Set CurrentSheet = ActiveWorkbook.Worksheets(I) If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then SheetCount = SheetCount + 1 PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5 PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name TopPos = TopPos + 13 End If Next I PrintDlg.Buttons.Left = 240 With PrintDlg.DialogFrame .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34) .Width = 230 .Caption = "اختر أوراق العمل المراد طباعتها" End With PrintDlg.Buttons("Button 2").BringToFront PrintDlg.Buttons("Button 3").BringToFront Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If CurrentSheet.Activate Application.ScreenUpdating = True Worksheets(3).Select ActiveWindow.SelectedSheets.PrintOut copies:=Numcop Application.DisplayAlerts = False PrintDlg.Delete Sheets(X).Select End Sub رابط هذا التعليق شارك More sharing options...
اشرف النعاس قام بنشر يوليو 9, 2016 الكاتب مشاركة قام بنشر يوليو 9, 2016 بارك الله فيك اخي ياسر .....الحمد لله وصلت المطلوب 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.