چگونه موقعیت مکانی تصویر در پرینت را تغییر دهیم؟

[amir_hossein_ta]

فزض کنید که از یک فرم عکس گرفته شده و می خواهیم پرینت کنیم.آیا روشی هست که موقعیت این تصویر در کاغذ را تغییر دهیم؟مثلا وسط کاغذ یا سمت چپ ویا مختصاتی خاص از کاغذ...با سپاس از اساتید.

[anooshiran]

سلام دوست عزیز


برای تنظیم صفحه از PageSetupDialog و برای پیش نمایش از PrintPreviewDialog میتوانی استفاده کنی .

به کدهای زیر توجه کن. البته فقط روش را نشان داده ام و تصویری موجود نیست. بقیه اش را می توانی بسادگی انجام دهی




Dim pPreviewDialog As PrintPreviewDialog
Dim pSetupDialog As New PageSetupDialog
Dim WithEvents pd As Printing.PrintDocument
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializePrintPreviewDialog()
End Sub
Private Sub InitializePrintPreviewDialog()
pPreviewDialog = New PrintPreviewDialog
With pPreviewDialog
.ClientSize = New System.Drawing.Size(400, 300)
.Location = New System.Drawing.Point(29, 29)
.MinimumSize = New System.Drawing.Size(375, 250)
.UseAntiAlias = True
End With
End Sub
Private Sub InitializePageSettingsDialog()

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pPreviewDialog.Document = pd
pPreviewDialog.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pSetupDialog.Document = pd
pSetupDialog.Document.DefaultPageSettings.Color = False
pSetupDialog.ShowDialog()
End Sub