درخواست کد پرکردن فرم و چاپ

**armey** · 2023/06/17, 01:49

کدی که دارم اینه منتهی دو تا مشکل رو دارم باهاش

همونجور که گفتم میخوام اطلاعات از شیت منبع بجای باکس به سلول منتقل بشه که البته این مورد خیلی اولویت نیست

ولی مشکل اصلیم اینه که اگه قرار باشه مثلا در یک کاغذ آ4 تعداد4 فرم یا دو فروم آ5 چاپ بشه
چجوری باید بنویسیم که مثلا سطر اول رو بترتیبی که میگیم به فرم اول ببر
بعد سطر دوم رو با ترتیب به فرم دوم
حالا چاپ بگیر

و بعد برو سطر سه رو به فرم اول بیار
بعد سطر چار به فرم دوم
حالا چاپ

و
.
.
.

کد:

Sub Print_Form()    Dim x As Integer


  x = 2


   Do


  Call Fill_Form(x)


   Sheets("tag").PrintOut






      x = x + 1


  Loop Until IsEmpty(Sheets("serial").Cells(x, 2))


End Sub






Sub Fill_Form(x As Integer)


Sheets("tag").ActiveCell(a4) = Sheets("serial").Cells(x, 2)
Sheets("tag").Shapes("TextBox 22").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 11)
Sheets("tag").Shapes("TextBox 84").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 9)
Sheets("tag").Shapes("TextBox 37").DrawingObject.Text = Sheets("takhsisi ruz").Cells(x, 10)








End Sub

پیشاپیش از لطف همه دوستان سپاسگذارم