print

[dividotaa]

با سلام
من روی یه برنامه کار می کنم تویه یکی از فرم ها چند دایره وخط با روش کد نویسی نوشتم و یه command برا پرینت گذاشتم وقتی برنامه اجرا می شد و من پرینت می گیرم

دایره ها در پرینت بیضی میشند چکار کنم کلا تصویر با شکل فرم متفاوت میشه

[samiasoft]

با سلام
من روی یه برنامه کار می کنم تویه یکی از فرم ها چند دایره وخط با روش کد نویسی نوشتم و یه command برا پرینت گذاشتم وقتی برنامه اجرا می شد و من پرینت می گیرم

دایره ها در پرینت بیضی میشند چکار کنم کلا تصویر با شکل فرم متفاوت میشه

در صورت امکان سورس برنامتون رو قرار بدید تا بهتر بشه منظورتون رو متوجه شد

[Mori Bone]

سلام. صبح همه بخیر.
اگه از کد های کشیدن دایره اطمینان دارید و یا از کنترل دایره استفاده می کنید(که اطمینان نمی خواد). شاید مسئله از کارت گرافیک شما باشه. شما آخرین نسخه درایور کارت گرافیک رو نصب کن. یا رزولوشن در سیستم عامل رو مناسب با صفحه نمایش قرار بدید

[dividotaa]

Option Explicit

Private Sub chap_Click()

Printer.Width = 14000
Printer.Height = 18000
Printer.Zoom = 100



Printer.PaintPicture Form1.Image, 100, 100, _
12600, 17350, 200, 200

Printer.EndDoc
End
End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx.Text = ""
yy.Text = ""
xx.Text = Form1.Width
yy.Text = Form1.Height

End Sub

Private Sub rasme_Click()
Dim r As Single
Dim b As Single
For r = 1000 To 6000 Step 500
DrawWidth = 5
Circle (0, 0), r, vbBlack
Next r

DrawWidth = 5
Form1.Line (0, 0)-(6000, 6000), vbRed

End Sub

Private Sub Form_Load()
Form1.Top = 0
Form1.Left = 0
Form1.Height = Screen.Height
Form1.Width = Screen.Width
Dim c As Single
c = Form1.Height / Form1.Width
Form1.Scale (-10000, 10 * c)-(10000, -10 * c)

End Sub

[dividotaa]

البته این یه قسمتش هست در ضمن بحث ریزولیشن را تنظیم کردم ولی بازم جواب نداد من از win pdf ,پرینتر آفیس و hp1102 می کنم

[dividotaa]

اینهم مقدار ریزولیشن در دو حالت خود ویندوز هم روی 1024 هست حتی مقدارشون را هم مساوی کردم باز جواب نداد
Screen.TwipsPerPixelX=15
15 = Screen.TwipsPerPixelY
screen.width=15360
11520=screen.height