Re: Custom Page Size

Написал GoodvinVV в 23/03/2010 17:37:07

вот, нашел примерчик, не совсем то , что хотелось бы.... мудрёный очень...кто поможет разобраться?
http://www.planet-source-...


пример моей тестовой формы

и cod

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() установить в принтер новые парамтры (размеры)

??? ???
??? ???

End Sub