به یک برنامه ی نمونه احتیاج دارم حاضرم پول هم خرج کنم

[blackroos]

سلامی دوباره
اول از همه باید بگم که با معرفت این جمع فقط شما بودین و از این که من رو یاری کردین خیلی خیلی ممنونم .
دوم اینکه من مشکلم برطف شد .
سوم اینکه شما قرار بود برام دنبال یک کد html بگردین من که دیگه لازم ندارم ولی اگر اون کد رو هم بذارین ملت بیشتر حال می کنن .
کوچیکت blackroos(رضا)

[bithiah]

دوست عزیز از لطفتون ممنون
نمونه کد گزارشگیری توسط کد HTML رو یادمه یه مرتبه گذاشتم، ولی باز کامل تر می ذارم:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشید

[blackroos]

سلام خیلی ممنونم
دوست عزیز من مشکلم را بعد از اندکی مطالعات حل کردن ولی به یک مشکل بر خورد کردم اونهم اینطوری بود که اول نمی خواستم گذارشم را قبل از چاپ نمایش بده و شبیه کد زیر رو استفاده کردم
به عنوان مثال
ز
Dim x As Long


Private Sub Command1_Click()
x = 0 ' total of page
n = 5 ' namber lin for pag
i = 0 ' conter number of line in each
Printer.Font.Name = "Traditional Arabic"
Printer.Font = 18
Printer.Print 'emputi line
Printer.Print
Data1.Recordset.MoveFirst
While Data1.Recordset.EOF <> True
x = x + Val(Text3) 'sum of salary
i = i + 1
Printer.Print Tab(4); "| "; Text1;
Printer.Print Tab(20); "| " + Text2;
Printer.Print Tab(40); "-----------------------------------------------------------"
Data1.Recordset.MoveNext

If i = n Then

Printer.Print Tab(40); x
Printer.NewPage
Printer.Print Tab(40); x
i = 0
End If
Wend
Printer.Print Tab(40); x
Printer.EndDoc
End Sub


ولی حالا می خوام که اول نمایش بده ولی نمی دونم که چه طور این برنامه رو که با شئ printer نوشتم رو قبل از چاپ برایم نمایش بدهد . اگر کمکم کنید ممنون می شم

البته باید بگم که حق دارین بگین که " این چقدر خینگ است با اون همه که مثال برایش گذاشتم باز هم نفهمیده " اما به خدا هیچ کدوم از اونها شئ printer رو نشون نداده .

اگه ممکن هست باز هم راهنماییم کنید .
مخلصتون blackroos(رضا)