ازچند کنترل در فرم چطور copy کپی بگیرم؟

[ملودی]

سلام من تو فرمم چند textbox دارم حالا میخوام از همشون یک کپی در notepad بزارم . لطف میکنید راهنماییم کنید؟

[far_222000]

این برنامه ایه که می خواین:

[far_222000]

برام یه پیغام خصوصی زده بودین که انگار می خواستین برنامه جوری باشه که بشه آدرس فایل مورد نظر رو هم Set کرد، برنامه می شه این:

[ملودی]

مرسی مشگلم حل شد.
یک سوال: وقتی چند فرم در یک پروژه داریم میشه اونارو بصورت آرایه تعریف کرد بعد با فشردن یک command ازشون یکجا print گرفت؟ اگه میشه چطوری؟!

[ملودی]

Public count As Integer
Public intform(1 To 6) As Controls

For count = LBound(intform) To UBound(intform
intform(count).Print
Next count


این برنامه نمیتونه آرایه ای از فرمهارو بده که ازشون print گرفت؟ این errorرو میده
varriable required cant assign to this expression

[far_222000]

می خواین از چیه فرم ها پرینت بگیرین؟ یعنی توی هر فرم یه آرایه دارین؟
لطفاً بیشتر توضیح بدین

[ملودی]

ببینید من توی پروژم تعدادی فرم دارم در هر فرمم تعدادی textbox , حالا میخوام با زدن یک command از همه فرمهام print گرفته شه در حقیقت داده های درون textbox رو میخوام(پروژم ارتباط بین pc و میکروست)

[far_222000]

با این دستورات می تونین از Textbox ها پرینت بگیرین:

Printer.NewPage
Printer.Print Text1.Text
Printer.Print Text2.Text
Printer.Print Text3.Text
Printer.Print Text4.Text
Printer.EndDoc

[ملودی]

مرسی ولی همانطورکه گفتم من 7 تا فرم دارم وتو هر کدوم 150 تا Textbox , میخوام با زدن یک command از همه textbox ها در همه فرمها یکجا پرینت بگیره این مشگل اصلیمه

[far_222000]

شما اینو می خوای که البته من برای 3 تا فرم نوشتم، شما بسطش بده برای 7تا فرم:

Printer.NewPage

Dim Cntrl As Control
For Each Cntrl In Form1.Controls
If TypeName(Cntrl) = "TextBox" Then
Printer.Print Cntrl.Text
End If
Next

Dim Cntrl As Control
For Each Cntrl In Form2.Controls
If TypeName(Cntrl) = "TextBox" Then
Printer.Print Cntrl.Text
End If
Next

Dim Cntrl As Control
For Each Cntrl In Form3.Controls
If TypeName(Cntrl) = "TextBox" Then
Printer.Print Cntrl.Text
End If
Next

Printer.EndDoc

[ملودی]

بله درست شد ولی اومدم تو ماژول 7 تا متغیر از نوعboolean تعریف کردم (برای هر فرم یکی) مثلا برای دو فرم به شکل زیر عمل کردم فرم اصلی(command)

If p1 = True Then

Me.PrintForm
pmain = False
p1 = True
Form1.Show
End If
در فرم دوم (در load)

If p1 = True Then
p1 = False
p2 = True
Me.PrintForm
Form2.Show
End If
همینجور تا آخر...بازم ممنون از راهنماییتون