Я пытаюсь распечатать изображение (из файла) на принтере, используя PrintDocument
.
Я изменяю размеры своего изображения, чтобы оно масштабировалось до полной страницы на распечатке, когдаЯ печатаю это изображение слегка обрезано.
РЕДАКТИРОВАТЬ 2
I am , используя поля для расчета используемой области:
With printSettings.DefaultPageSettings
Dim areaWidth As Single = .Bounds.Width - .Margins.Left - .Margins.Right
Dim areaHeight As Single = .Bounds.Height - .Margins.Top - .Margins.Bottom
End With
Границы страницы: 1169x827 (A4), а с полями - 1137x795.
После изменения размера мой размер изображения составляет 1092x682, и я использую следующий код для его отрисовки: e.Graphics.DrawImage(printBitmap, .Margins.Left, .Margins.Top)
Раздражает то, что когда я печатаю в PrintPreviewDialog, он масштабируется идеально, но когда я печатаю тот же самый код на реальном принтере, он не подходит.
Полный код можно найти на этот URL Использование:
Dim clsPrint As New clsPrinting
With clsPrint
.Landscape = True
.SetMinimumMargins()
If .ShowPrintDialog Then
.Documentname = "Some doc name"
.Preview = False 'When True shows ok
.PrintImage("filename of a png file")
End If
End With