pdf

[mrs225]

با سلام خدمت همه دوستان برنامه نویس

من میخواستم برنامه نویس وقتی کاربر با هر برنامه در صورت پرینت داد یک نسخه به صورت pdf از فایل پرینت برام ایجاد کنه
نیاز به کمک فوری دارم

[m.4.r.m]

این یه نمونه کد برای تولید فایل PDF :


Option Explicit

Private Sub Command1_Click()
' Create a simple PDF file using the mjwPDF class
Dim objPDF As New mjwPDF

' Set the PDF title and filename
objPDF.PDFTitle = "Test PDF Document"
objPDF.PDFFileName = App.Path & "\test.pdf"

' We must tell the class where the PDF fonts are located
objPDF.PDFLoadAfm = App.Path & "\Fonts"

' View the PDF file after we create it
objPDF.PDFView = True

' Begin our PDF document
objPDF.PDFBeginDoc
' Set the font name, size, and style
objPDF.PDFSetFont FONT_ARIAL, 15, FONT_BOLD

' Set the text color
objPDF.PDFSetTextColor = vbBlue

' Set the text we want to print
objPDF.PDFTextOut "Hello, Barnamenevis.Org"

' End our PDF document (this will save it to the filename)
objPDF.PDFEndDoc
End Sub

[mrs225]

فکر کنم متوجه منظور من نشدید من میخوام هر برنامه که دستور پرینت داد به عنوان مثال در word کاربر دستور پرينت بعد برنامه من بیاد یک فایل pdf از فایل که در word پرینت گرفته ایجاد کنه

[Mr'Jamshidy]

فکر کنم شما میخوای یک پپرینتر مجازی بنویسی که با VB6 بعید به نظر میرسه

[mrs225]

نه خیر منظورم پرینتر مجازی نیست ، منظور این که کاربر با هر چاپگری در هر برنامه پرينت گرفت یک نسخه از فایل پرینت برای من ایجاد بشه