نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

موضوع: پرينت

  1. #1


    آخرین بازدید
    2024/01/29
    تاریخ عضویت
    March 2011
    نوشته ها
    110
    امتیاز
    19
    سپاس
    2
    سپاس شده
    16 در 14 پست
    تعیین سطح نشده است

    پرينت

    سلام
    من یک فایل شامل يك شيت دارم
    اگه بخوام ستون مدرك براساس مدارك تحصيلي پرينت بگيرم چگونه است
    مثلا يكبار ديپلم فيلتر كنم پرينت گرفته شود بعد دوباره كارداني فيلتر شود بعد پرينت گرفته شود
    ممنون
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx print.xlsx اطلاعات (77.0 کیلو بایت, 15 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2024/01/29
    تاریخ عضویت
    March 2011
    نوشته ها
    110
    امتیاز
    19
    سپاس
    2
    سپاس شده
    16 در 14 پست
    تعیین سطح نشده است

    Sub Macro1()
    '
    ' Macro1 Macro
    '


    '
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
    "كارداني"
    Range("B38").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2
    Range("Table1[[#Headers],[مدرک]]").Select
    End Sub

    امكان داره اين ماكرو كامل بشه

  4. #3


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    در صورت انتخاب نوع مدرک از سلول I2 ماکرو پرینت اجرا میگردد

    کد PHP:
    Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next  'skip all run-time errors'


     
    If Not Application.Intersect(TargetRange("I2")) Is Nothing Then
     

    Application
    .EnableEvents False

     Z 
    Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row

    ActiveSheet
    .Range("$A$2:$FZ).AutoFilter Field:=2Criteria1:=Range("I2").Value



    Columns
    ("A:F").Select
        ActiveSheet
    .PageSetup.PrintArea "$A1:$F&Z"
        
        
    ActiveWindow.SelectedSheets.PrintOut Copies:=1Collate:=True_
            IgnorePrintAreas
    :=True
            
         Range
    ("A3").Select
         End 
    If
    Application.EnableEvents True

    On Error 
    GoTo 0  'Turn off error trapping and re-allow run time errors

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده


  5. #4


    آخرین بازدید
    2024/01/29
    تاریخ عضویت
    March 2011
    نوشته ها
    110
    امتیاز
    19
    سپاس
    2
    سپاس شده
    16 در 14 پست
    تعیین سطح نشده است

    سپاسگذارم


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد