Custom Page Size

Написал GoodvinVV в 22/03/2010 17:51:26

Доброго дня Всем !!!
помогите разобраться...
Есть желание печатать Custom Page Size, но не получается принтеру назначить тот размер который нужно ....например получить список принтеров это пожалуста, выбрать нужный тоже ...посмотреть текущий размер тоже можно.... а КАК Установить свой размер?

Private Sub Command1_Click()
List1.Clear
For Each objPrinter In Printers
List1.AddItem objPrinter.DeviceName
If objPrinter.DeviceName = "Adobe PDF" Then
Text4.Text = objPrinter.DeviceName

Dim W
Dim H

W = objPrinter.Width * 1.7636684303351E-03 * 10
H = objPrinter.Height * 1.7636684303351E-03 * 10

W = Round(W, 2)
H = Round(H, 2)

Text3.Text = W
Text5.Text = H

End If

Next

End Sub

Private Sub Command2_Click() установить в принтер новые парамтры (размеры)

??? objPrinter.Width = ???
??? objPrinter.Height = T???

End Sub

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=103307

Rambler's Top100