ايران ويج

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

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

برام یه پیغام خصوصی زده بودین که انگار می خواستین برنامه جوری باشه که بشه آدرس فایل مورد نظر رو هم 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

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

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

با این دستورات می تونین از 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 ها در همه فرمها یکجا پرینت بگیره این مشگل اصلیمه

شما اینو می خوای که البته من برای 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
همینجور تا آخر...بازم ممنون از راهنماییتون