السلام عليكم ورحمه الله وبركاته
لدي مشروع وهو متوقف الان بسبب صعوبه انجاز هدفه الاساس
وهو تنشاء صفحات للمواقع جاهزه بحث هناك اجزاء من كود الصفحه تؤخذ من التكست
كنت اود استخدام هذا الكود
Print #1, "sarmad"
Close #1
End Sub
Open App.Path & "\sarmad.htm" For Output As #1
انا لم احاول حتى لان الصفحه والواحد تتكون من 500 سطر على الاقل
وبهذا سيكون العمل صعبا جدا
فوجدت موضوع يسأل عن هذا الشي ووضعت له هذا الكود في وقتها ووجدت مثلا جميلا
هذا الكود الخاص به ولا اذكر اسم الاخ صاحب لمثال
Call Mak(Text2.Text, Text3.Text)
Form2.Show vbModal, Me
End Sub
Sub Mak(ByVal Title As String, ByVal Report As String)
Dim Result As String
Result = "<Html>" & vbCrLf & _
"<Head> <Title>" & "HTML Report </Title>" & vbCrLf & _
"</Head>" & vbCrLf & "<Body>" & vbCrLf & "<P Align =" & "Center" & ">" & Trim(Title) & _
"</P>" & vbCrLf & "<br>" & vbCrLf & "<P Align=" & "Right" & ">" & vbCrLf & _
Trim(Report) & "</P>"
Open App.Path & "\Report.htm" For Output As #1
Print #1, Result
Close #1
End Sub
Private Sub Command1_Click()
وذا ايضا رائع لكن نقس الشكله واصعب ايضا
فماا الطريقه وكيف يمكن وضع مجموعه من اكتابات لا يهتم لها لفيجوال بحيث يقوم
بطباعتها فقط بدون ان يقرائها بصوره خاطئ
فلا ينفع حصر الكود بين ""
بسبب وجودها بداخل الكود على ما اظن فارجو منكم الحل رجاءا
حتى اذا كانت العمليه صعبه لكن لا تكون معقده مثل النثال الثاني بوضع المسافات وكل هذه الاشياء بالاضافه
لم انتي من برنامجي ابدا
والان ارجو الحل وكل المطلوب حصر كود المراط طباعته بدون حصول تأثير عليه من الفيجوال
شكرا مقدما
