به هم ریخته شدن و نامفهومی صفحه پرینت

[s.hematii]

سلام من یه برنامه دارم که قابلیت پرینت داره و کدش در زیر هست منتها وقتی یک پرینتر واقعی انتخاب می کنم یه شکلها و کاراکترهای نامفهوم می اندازد در حالی که با پرینتر مجازی مثلا pdf مشکلی ندارد ناگفته نماند که من یک برنامه دیگر نوشتم که تنظیمات پرینترش مثل همینه و یک جدول را پرینت می گیره و صحیح پرینت گرفته می شه اما نمیدونم این برنامه چرا اینجوره لطفا راهنمایی کنید؟؟؟؟؟؟؟؟:افسرده::افسرد� �::ناراحت:
If MsgBox("aya print mikhahid", vbYesNo) = vbYes Then

Set Printer = Printers(Combo1.ListIndex)
Printer.ColorMode = vbPRCMColor
Printer.PaperSize = vbPRPSA4
Printer.Copies = 1
Printer.Orientation = vbPRORPortrait
Printer.PrintQuality = vbPRPQHigh
Printer.ScaleMode = vbMillimeters
Printer.RightToLeft = True
Printer.Scale (0, 0)-(297, 210)

Image1.Width = 168420.87
Image1.Height = 11780.1
Printer.PaintPicture Image1.Picture, 1, 1, 295, 208

Printer.FontSize = 23
Printer.Font = "B nazanin"
Printer.FontSize = 11

Printer.CurrentX = 10
Printer.CurrentY = 15
Printer.Print "نام مشتري : نام دستگاه : "

Printer.Font = "Arial"
Printer.FontSize = 14
Printer.FontBold = True

Printer.CurrentX = 37
Printer.CurrentY = 14.5
Printer.Print NameD.Text

Printer.CurrentX = 175
Printer.CurrentY = 14.5
Printer.Print SHGavahi.Text

End Sub