آقای خزاما سلام.

می خوام از داده های بانک اطلاعاتی گزارش تهیه کنم . تا حالا با DataReport کار می کردم اما حالا می خوام با روشی که قبلا گفتی کار کنم. یعنی داده ها رو داخل یک HTML بذارم بعد پرینت بگیرم.

چطوری فرم HTML باز کنم . آیا با کد نویسی این کار انجام می شه یا نه - باید این فرم را به برنامم Add کنم.

اگر کد نمونه داشتی برام بذار. یا به این آدرس بفرست:mehdiallahabadi@yahoo.com

متشکرم از لطف شما.

_______________________________________________________________________
الله آبادي

درود .

راهی که من معمولا برای پرینت چیزایی مثل صورت حساب یا ژوری انجام میدم اینه که با frontpage اول صفحه مورد نظر رو ایجاد میکنم و جای چیزهایی که قراره نوشته بشه مثل نام مشتری یا قیمت و نمره رو با یکسری کلمات خاص پر میکنم مثل #PersonName# بعد توی برنامه این فایل .html ایجاد شده رو باز میکنم و این کلمات خاص رو با کلمات مناسب تعویض میکنم و بعد تغییرات رو توی فایل ذخیره میکنم و با آبجکت iexplorer بازش میکنم و با یسری توابع که این آبجکت داره Preview نمایش داده میشه و سپس پرینت میشه . برای برخی تغییرات هم بایستی خودتون توی کد برنامتون تگهای html رو ایجاد کنید مثلا وقتی که تعداد سطرها کاملا معلوم نیست توی یه حلقه به تعداد کالاها توسط تگهای html ستونهای جدیدی توی یک table ایجاد میشه (تگهای <tr> و <td>) .

_______________________________________________________________________
پروژه های حرفه ای الکترونیک و کامپیوتر در www.khazama.com
مجموعه متن باز نامهای اصیل ایرانی
وبلاگ نوشته های شخصی من

 سلام. چون تاکنون با HTML کار نکردم نمی دونم چطوری در VB فایل HTML رو باز کنم.

آیا با کد نویسی انجام میشه. یا با کامپوننت.یا با ایجاد یک فرم از NewForm\WebBrowser .

ممنون میشم که منو  راهنمایی کنید.

_______________________________________________________________________
الله آبادي

درود .

باز کردن یک فایل کار خاصی نداره به همون روش معمول با دستور open بازش کنید و تمام محتوای داخلش رو توی یه متغییر رشته ای برزید بعد اون کلمات خاص رو توش پیداکنید و جایگزین کنید (مثلا با دستور replace) .

مثلا :

    Dim s As String
    s = String(FileLen("c:\TestPrint.htm"), 0)
    Open "c:\TestPrint.htm" For Binary Access Read As 1
      Get #1, , s
    Close #1
    s = Replace(s, "#PersonName#", "بهزاد خزاما")

 یا میتونید اون فایل html رو توی ریسورس پروژه قرار بدید و با دستور LoadResData اونو توی متغییر رشته ای بریزید .

_______________________________________________________________________
پروژه های حرفه ای الکترونیک و کامپیوتر در www.khazama.com
مجموعه متن باز نامهای اصیل ایرانی
وبلاگ نوشته های شخصی من

سلام و خسته نباشی.

متشکرم.

_______________________________________________________________________
الله آبادي