ضمن عرض ادب و احترام خدمت دوستان عزیز و اعضای محترم سایت
یه کد دارم که
میاد به ترتیب
سطر اول از سیت داده ها رو در یک
فرم در شیتی دیگر
جاگذاری میکند و دستور چاپ را میدهد و این کار تا
رسیدن به سطری خالی در شیت داده ادامه دارد
حالا ما اگه بیاییم فرم رو کوچک تر کنیم بگونه ایی که بجای اطلاعات یک سطر
اطلاعات 4 سطر در یک فرم جا شود
فرض که قرارداد قرار است چاپ شود
در حالت فرمول بالا
سطر اول در فرم جاگذاری و چاپ می شود
در حالتی که اکنون نیاز است
فرم کوچکتر شده و و در یک برگ عا4
چهار
قرارداد جا می شود
حالا باید فرمان
گونه ایی باشد که
سطر
یک و دو و سه و چهار
را به فرم منتقل کند مطابق تکست باکسهایی که کد دادم
بعد بره سراغ بعدی
یه کد دارم که
میاد به ترتیب
سطر اول از سیت داده ها رو در یک
فرم در شیتی دیگر
جاگذاری میکند و دستور چاپ را میدهد و این کار تا
رسیدن به سطری خالی در شیت داده ادامه دارد
کد:
Sub Print_Form_CRM()
Dim x As Integer
x = 2
Do
Call Fill_Form(x)
Sheets("crm-form").PrintOut
x = x + 1
Loop Until IsEmpty(Sheets("crm").Cells(x, 3))
End Sub
اطلاعات 4 سطر در یک فرم جا شود
فرض که قرارداد قرار است چاپ شود
در حالت فرمول بالا
سطر اول در فرم جاگذاری و چاپ می شود
در حالتی که اکنون نیاز است
فرم کوچکتر شده و و در یک برگ عا4
چهار
قرارداد جا می شود
حالا باید فرمان
گونه ایی باشد که
سطر
یک و دو و سه و چهار
را به فرم منتقل کند مطابق تکست باکسهایی که کد دادم
بعد بره سراغ بعدی
کد:
Sub Print_Form_CRM()
Dim x As Integer
x = 2
Do
Call Fill_Form(x)
Sheets("crm-form").PrintOut
x = x + 1
Loop Until IsEmpty(Sheets("crm").Cells(x, 3))
End Sub
Sub Fill_Form(x As Integer)
Sheets("crm-form").Shapes("TextBox 2").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 3").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 5").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 6").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 7").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 12").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 8").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 9").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 10").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 11").DrawingObject.Text = Sheets("crm").Cells(x, 13)
Sheets("crm-form").Shapes("TextBox 13").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 19").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 29").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 20").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 21").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 22").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 23").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 24").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 25").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 26").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 27").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 28").DrawingObject.Text = Sheets("crm").Cells(x, 13)
Sheets("crm-form").Shapes("TextBox 13").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 30").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 31").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 32").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 33").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 34").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 35").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 36").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 37").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 38").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 39").DrawingObject.Text = Sheets("crm").Cells(x, 13)
Sheets("crm-form").Shapes("TextBox 40").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 41").DrawingObject.Text = Sheets("crm").Cells(x, 1)
Sheets("crm-form").Shapes("TextBox 51").DrawingObject.Text = Sheets("crm").Cells(x, 15)
Sheets("crm-form").Shapes("TextBox 42").DrawingObject.Text = Sheets("crm").Cells(x, 4)
Sheets("crm-form").Shapes("TextBox 43").DrawingObject.Text = Sheets("crm").Cells(x, 5)
Sheets("crm-form").Shapes("TextBox 44").DrawingObject.Text = Sheets("crm").Cells(x, 7)
Sheets("crm-form").Shapes("TextBox 45").DrawingObject.Text = Sheets("crm").Cells(x, 10)
Sheets("crm-form").Shapes("TextBox 46").DrawingObject.Text = Sheets("crm").Cells(x, 11)
Sheets("crm-form").Shapes("TextBox 47").DrawingObject.Text = Sheets("crm").Cells(x, 6)
Sheets("crm-form").Shapes("TextBox 48").DrawingObject.Text = Sheets("crm").Cells(x, 3)
Sheets("crm-form").Shapes("TextBox 49").DrawingObject.Text = Sheets("crm").Cells(x, 12)
Sheets("crm-form").Shapes("TextBox 50").DrawingObject.Text = Sheets("crm").Cells(x, 13)
End Sub
کامنت