[حل شده] دستور پرینت

[sohrabahmadi]

با سلام خدمت دوستان واساتید .برای دستور پرینت از صفحه 1 تا صفحه ای که عدد آن توی تکست باکس نوشته شده میخواستم دوستان کمک کنند اگه امکانش باشه.طبق تصویر زیر

[majid_mx4]

باسلام

میتوانید از فایل ضمیمه و دستورات آن استفاده نمایید.

توضیح : دیکته دستورات شما IgnoreprintArea اشتباه تایپی دار و صحیح آن IgnorePrintAreas می باشد.

Private Sub CommandButton1_Click()
 Dim i As Integer
 Dim Cop As Integer
   For i = TextBox1.Value To TextBox2.Value
        For Cop = 1 To TextBox3.Value
      ActiveSheet.PrintOut From:=i, To:=Val(UserForm1.TextBox2), Copies:=Cop, collate:=False, IgnorePrintAreas:=False
  Next
 Next
 End Sub

موفق باشید میر