YasserDivaR
شنبه 07 تیر 1393, 22:48 عصر
سلام یا دایال اپ وصل شدم جواب رو بدین چک می کنم نمی تونم پی گیری کنم شرمنده ولی نیاز فوری دارم دوستان من از کد زیر براي چاپ سوره های قرآن استفاده کردم
Dim S$
S = txtQuran.Text
Printer.Line (1, 1)-(Printer.TextWidth(S), Printer.TextHeight(S)), vbRed, BF
Printer.RightToLeft = True
Printer.Font.Name = Frm_Main.fntname.Text
Printer.Font.Size = Frm_Main.fntsize.Text
Printer.ScaleLeft = -0.5 * 1440
Printer.ScaleTop = -0.75 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print S
Printer.EndDoc
اما در مورد سوره بقره چون آیه هاش طولانی و عرض طولانی داره از صفحه چاپ میزنه بیرون چه کنم تراز بندی بشه با برگه A4 یا حالا فایل پی دی اف بسازم
البته از لبه صفحه فاصله حفظ بشه و نچسبه
تشکر
Dim S$
S = txtQuran.Text
Printer.Line (1, 1)-(Printer.TextWidth(S), Printer.TextHeight(S)), vbRed, BF
Printer.RightToLeft = True
Printer.Font.Name = Frm_Main.fntname.Text
Printer.Font.Size = Frm_Main.fntsize.Text
Printer.ScaleLeft = -0.5 * 1440
Printer.ScaleTop = -0.75 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print S
Printer.EndDoc
اما در مورد سوره بقره چون آیه هاش طولانی و عرض طولانی داره از صفحه چاپ میزنه بیرون چه کنم تراز بندی بشه با برگه A4 یا حالا فایل پی دی اف بسازم
البته از لبه صفحه فاصله حفظ بشه و نچسبه
تشکر