ایجاد فایل pdf

[batman123 64]

سلام.

چه طوری میشه یک فایل pdf را در بیسیک ساخت

فرض کنید کاربر نوشته ای رو در برنامه مینویسه حالا میخوایم در نهایت یک فایل pdf از اون نوشته بسازیم.

ممنون

[batman123 64]

ممنون میشم اگه کسی میدونه جواب بده

[batman123 64]

در در 29 دی 1399 در 20:06، ali mo گفته است :

عکس خطا رو بفرستید لطفا

سلام.

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

Private Sub print
	Dim pdf As PdfDocument
	pdf.Initialize
	pdf.StartPage(595, 842) 'A4 size
	pdf.Canvas.DrawLine(2, 2, 593 , 840, Colors.Blue, 4)
	pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Yellow, "CENTER")
	pdf.FinishPage
	Dim out As OutputStream = File.OpenOutput(File.DirInternal, "1.pdf", False)
	pdf.WriteToStream(out)
	out.Close
	pdf.Close
End Sub

اما این خطا رو میده:

مشکلش کجاست؟

[ali mo 262]

سلام وقت بخیر 

متاسفانه علتش رو نمی دونم

سورس داشته همراه مثال؟ اونو تست کردید ؟

[batman123 64]

در 2 ساعت قبل، ali mo گفته است :

سلام وقت بخیر 

متاسفانه علتش رو نمی دونم

سورس داشته همراه مثال؟ اونو تست کردید ؟

دقیقا همینو تست کردم که ارور میده

[batman123 64]

ممنون میشم اگر کسی میدونه، راهنمایی کنه

[محمدرضا شاهپیری 5,492]

در در 1 فروردین 1400 در 21:14، batman123 گفته است :

ممنون میشم اگر کسی میدونه، راهنمایی کنه

کد زیر رو تست کردم من. موردی نداره

Dim pdf As PdfDocument
Dim r As RuntimePermissions
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Black, "CENTER")
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(r.GetSafeDirDefaultExternal(""), "1.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close

 

[batman123 64]

در 1 ساعت قبل، محمدرضا شاهپیری گفته است :

کد زیر رو تست کردم من. موردی نداره

Dim pdf As PdfDocument
Dim r As RuntimePermissions
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Black, "CENTER")
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(r.GetSafeDirDefaultExternal(""), "1.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close

 

بله درسته

من روی گوشی تست نکرده بودم

روی شبیه سازم ارور میده.

[batman123 64]

خب.

مشکل ساخت یک فایل pdf برطرف شد.

الان مشکل مرتب نمایش دادن متن رو توی همون فایل pdf داریم.

به این عکس نگاه کنید

من هم با دیتابیس چک کردم و هم توی یک لیبل متنو نوشتم اما ناقص ذخیره میکنه.

کسی میدونه مشکل از کجاست؟

[batman123 64]

ممنون میشم اگه کسی میدونه جواب بده

[ali mo 262]

سلام وقت بخیر 

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

https://www.b4x.com/android/forum/threads/printing-and-pdf-creation.76712/#content

[batman123 64]

در در 22 دی 1399 در 22:02، ali mo گفته است :

سلام وقت بخیر 

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

https://www.b4x.com/android/forum/threads/printing-and-pdf-creation.76712/#content

سلام.

مرسی از راهنماییت

اما مثالی که زده خطا داره.

چیز دیگه ای داری؟

[ali mo 262]

عکس خطا رو بفرستید لطفا

[batman123 64]

در 45 دقیقه قبل، ali mo گفته است :

عکس خطا رو بفرستید لطفا

ببین مثلا کتابخونه ای که معرفی کرده با پارامترهای کدهایی که نوشته جور در نمیاد.

Dim pdf As PDFDocument
	pdf.Initialize
	pdf.StartPage(595, 842) 'A4 size
	pdf.Canvas.DrawLine(2, 2, 593 , 840, Colors.Blue, 4)
	pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Yellow, "CENTER")
	pdf.FinishPage
	Dim out As OutputStream = File.OpenOutput(File.DirInternal, "1.pdf", False)
	pdf.WriteToStream(out)
	out.Close
	pdf.Close

خودت یه تست کنی متوجه میشی