سوال در مورد شی پرینتر

[YasserDivaR]

با سلام
شي پرينتر و خواص آن
بنده براي چاپ متون طولاني و چند خطي مصلا سوره قران و ترجمه هاش
اولا اين که رنگ زمينه چاپگر رو ميشه تغيير داد براي پي دي اف
رنگ متن رو تغيير دادم و اما رنگ زمينه رو چجوري ميشه تغيير داد
Printer.ForeColor=vbred
دوم اين که اگه ممکنه اين دستورات رو براي Commondialog هم بگين اما فارسي رو ساپورت نمي کنه
تعيين حاشيه متن به اين صورت تنظيم شده
Printer.ScaleLeft = -0.5 * 1440
Printer.ScaleTop = -0.75 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0

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

و اين ک وقتي پنجره ذخيره با فرمت پي دي اف مياد اسم فايل رو تغيير بدم چون بصورت پيشفرض اسم پروژه مياد

شکل کلي کدي که استفاده کردم

Printer.RightToLeft = True
Printer.Font.Name = Frm_Main.fntname.Text
Printer.Font.Size = Frm_Main.fntsize.Text
Printer.ForeColor = txtQuran.ForeColor
Printer.ScaleLeft = -0.5 * 1440
Printer.ScaleTop = -0.75 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print txtQuran.Text
Printer.EndDoc

در ضمن اگه با کامند ديالوگ بشه که خيلي عااليه

[vbhamed]

سلام
اين رو تست كنيد
Dim s$
s = "اين يك تست است"
Printer.Font.Name = "Tahoma"
Printer.Font.Size = 30
Printer.ForeColor = vbRed
Printer.Line (1, 1)-(Printer.TextWidth(s), Printer.TextHeight(s)), vbYellow, BF
Printer.CurrentY = 0
Printer.CurrentX = 0
Printer.Print s
Printer.EndDoc

[YasserDivaR]

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