میخوام یه برنامه درست کنم که قرارداد تنظیم کنه .

[amin_unique]

سلام . دوستان میخوام یه برنامه درست کنم که قرارداد بین یه کارگاه و مشتری تنظیم کنه . میتونید راهنمایی کنید .

عکسه نمونه قرارداد هم ضمیمه کردم . کسی کمکم کنه سریع کار راه بیفته جایزه هم دارم براش :قلب:

[golbafan]

خیلی هم مشکل نیست!

کافیه از RichEdit ا استفاده از پارامتر (برای متغیر ها) استفاده کنی

[amin_unique]

سلام داداش . آره قبول دارم مشکل نیست . خودم هم RichEdit تو ذهنمه . اما کار نکردم باهاش . یه مشکل دیگه هم که به نظرم باشه برای خروجی آ4 گرفتنش باید چیکار کرد ؟

[golbafan]

پس باهاش کار کن و برای خروجی A4 هم خودش گزینه هایی برای پرینت داره

[amin_unique]

محدودیت داره ، کارمو راه نمیندازه . مثلا نمیشه فونتارو یه متن رو بزرگ کرد یه تیکه رو کوچیک . فک کنم با یه چیزی مثل کریستال ریپورت گزارش گیری کنم .

[arash21hhhh]

یه کار حرفه ای استفاده از استیمول و موارد مشابهه .
یه کار ساده تر که من واسه ساخت قرارداد خودم قبلا استفاده کرده استفاده از ورده . یه سند نمونه درست کن بعد با برنامه نویسی قسمت های لازمو مقداردهی کن بعدم فایلو ذخیره و نمایش بده .

[amin_unique]

سلام . با ورد یه فرم آماده درست کنم و تیکه های مختلف کرکتر های خاص بذارم بعد به جای اونا مقادیر خودمو ریپلیس کنم . آرش خان شما سورس آماده قبلی که واسه خودت نوشته بودی رو نداری ؟ از خجالتت در میام . ( یه پروژه دارم مینویسم که هنوز بخش های زیادیش مونده ) نمیتونم رو این وقت درست حسابی بذارم .

[arash21hhhh]

شما vb6 کار می کنی یا vb.net

[amin_unique]

vb6 کار میکنم برادر .

[arash21hhhh]

Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oTable As Word.Table
Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph
Dim oRng As Word.Range
Dim oShape As Word.InlineShape
Dim oChart As Object
Dim Pos as Double

'Start Word and open the document template.
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add

'Insert a paragraph at the beginning of the document.
Set oPara1 = oDoc.Content.Paragraphs.Add
oPara1.Range.Text = "Heading 1"
oPara1.Range.Font.Bold = True
oPara1.Format.SpaceAfter = 24 '24 pt spacing after paragraph.
oPara1.Range.InsertParagraphAfter

'Insert a paragraph at the end of the document.
'** \endofdoc is a predefined bookmark.
Set oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
oPara2.Range.Text = "Heading 2"
oPara2.Format.SpaceAfter = 6
oPara2.Range.InsertParagraphAfter

'Insert another paragraph.
Set oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"
oPara3.Range.Font.Bold = False
oPara3.Format.SpaceAfter = 24
oPara3.Range.InsertParagraphAfter

'Insert a 3 x 5 table, fill it with data and make the first row
'bold,italic.
Dim r As Integer, c As Integer
Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 3, 5)
oTable.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 3
For c = 1 To 5
oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
Next
Next
oTable.Rows(1).Range.Font.Bold = True
oTable.Rows(1).Range.Font.Italic = True

'Add some text after the table.
'oTable.Range.InsertParagraphAfter
Set oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
oPara4.Range.InsertParagraphBefore
oPara4.Range.Text = "And here's another table:"
oPara4.Format.SpaceAfter = 24
oPara4.Range.InsertParagraphAfter

'Insert a 5 x 2 table, fill it with data and change the column widths.
Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 5, 2)
oTable.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 5
For c = 1 To 2
oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
Next
Next
oTable.Columns(1).Width = oWord.InchesToPoints(2) 'Change width of columns 1 & 2.
oTable.Columns(2).Width = oWord.InchesToPoints(3)

'Keep inserting text. When you get to 7 inches from top of the
'document, insert a hard page break.
Pos = oWord.InchesToPoints(7)
oDoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter
Do
Set oRng = oDoc.Bookmarks("\endofdoc").Range
oRng.ParagraphFormat.SpaceAfter = 6
oRng.InsertAfter "A line of text"
oRng.InsertParagraphAfter
Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage)
oRng.Collapse (wdCollapseEnd)
oRng.InsertBreak wdPageBreak
oRng.Collapse wdCollapseEnd
oRng.InsertAfter "We're now on page 2. Here's my chart:"
oRng.InsertParagraphAfter

'Insert a chart and change the chart.
Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _
ClassType:="MSGraph.Chart.8", FileName _
:="", LinkToFile:=False, DisplayAsIcon:=False)
Set oChart = oShape.OLEFormat.Object
oChart.charttype = 4 'xlLine = 4
oChart.Application.Update
oChart.Application.Quit
'... If desired, you can proceed from here using the Microsoft Graph
'Object model on the oChart object to make additional changes to the
'chart.
oShape.Width = oWord.InchesToPoints(6.25)
oShape.Height = oWord.InchesToPoints(3.57)

'Add text after the chart.
Set oRng = oDoc.Bookmarks("\endofdoc").Range
oRng.InsertParagraphAfter
oRng.InsertAfter "THE END."

'All done. Unload this form.
Unload Me

پروژه من دات نت بود .ولی کلیت کار شبیه همین کد هایی هست که دادم .
توضیحات کامل و مراحل در
https://support.microsoft.com/en-us/kb/313193

[amin_unique]

دمت گرمممم . بزار یه نگاهی بندازم . متاسفانه دات نت کار نکردم زیاد .

[amin_unique]

نه داداش . نمیتونم راه بندازم . 25 تومان میدم خودت تو vb6 اون قراردادی که واسه خودت نوشتی رو ردیف کن .

[arash21hhhh]

متاسفانه من vb6و ندارم . شما بگرد مطلب زیاد پیدا میشه . . .

[علیرضا5]

Printer.PaintPicture LoadPicture("E:\new\1.JPG"), 0, 0, W, H

سلام من برای پرینت گرفتن از یه عکس قبلا از این کد استفاده کردم
به جای w و H طول و عرض بذار مثلا برای آ4 W = 11300 : H = 16500
باقی اندازه ها رو هم می تونی خودت بدست بیاری
روی این کد یه کم کا ر کنی کدی که می خوای بدست میاد

[pbm_soy]

منظورتان از این pictureBox چیست؟ آیا این دوستمون باید مقادیرش را در مختصاتهای موردنظرش پرینت کند؟
بله این هم روشی است فقط اول کار پیدا کردن مختصاتها کمی مشکل است!

ولی بهترین کار روش استفاده از فایل ورد است حتی میتوانید با vba مستقیم تو خود فایل ورد برنامه نویسی کنید وبجای جاهای خالی لیبل ویا تکست باکس بگذارید و آنها را توسط برنامه حالا از داخل ویا بیرون با vb6 پر کنید و سپس. پرینت کنید

[علیرضا5]

Printer.PaperSize = vbPRPSA4

این کد پرینت از یک دیتا ریپورت رو به صورت آ4 میده که البته اندازه های دیگه هم داره
به نظرم اگه فقط مشکل اندازه کاغذه بهتره از ورد استفاده نکنیم