Печать! Я не нашел ничего похожего((

[Matew]

Все довольно просто, но я не могу понять!
мне надо распечатать примерно ледующее
Rectangle(Form1.hdc, 2500, 3000, 10000, 5000) , но границы этого прямойгольника выходят за пределы формы и мне бы сделать так, чтобы принтер печатал не мониторовские пиксели, а тоненькие принтеровские(у него же разрешение на много выше)! Помогите, ну очень надо!

[Shurrik]

Так и печатай линии на самом принтере Printer.Line (x1,y1)-(x2,y2),B. Только узнай в точках размеры листа.

[Matew]

А как узнать?

[Matew]

Все, я сам узнал-GetDeviceCaps:-)

[alibek]

Можно и проще.
1. Printer.ScaleMode = vbPixels
2. ? Printer.(Scale)Width

[Matew]

Че то я ниче не пойму делаю вот так:

Код: Выделить всё

Private Sub PolnayaProrisovkaPechat() '
Printer.Print " "
call RazmeryPechat
Call ZaborPechat
Dim k As Integer
For k = 1 To schethik
    Call RisovaniePechat(vbBlack, k)
Next k
Printer.NewPage
Printer.EndDoc
End Sub

Private Sub ZaborPechat()
Dim hOldPen As Long, hOldBrush As Long

  hOldBrush = SelectObject(Printer.hdc, CreateSolidBrush(0))
  hOldPen = SelectObject(Printer.hdc, CreatePen(0, 1, 0))
Rectangle Printer.hdc, x1,y1,x2,y2
DeleteObject SelectObject(Printer.hdc, hOldPen)
If hOldBrush Then DeleteObject SelectObject(Printer.hdc, hOldBrush)
end sub

Public Sub RazmeryPechat()
Printer.Line(x1,y1)-(x2,y2),0
end sub

Private Sub RisovaniePechat(cvet As Long, Nschethik As Integer)
Dim hOldPen As Long, hOldBrush As Long
  prhdc=printer.hdc
  hOldBrush = SelectObject(prhdc, CreateSolidBrush(cvetZal))
  hOldPen = SelectObject(prhdc, CreatePen(0, 2, 0))
  polygon prhdc, pt1(1), UBound(pt1)
  DeleteObject SelectObject(prhdc, hOldPen)
  If hOldBrush Then DeleteObject SelectObject(prhdc, hOldBrush)
end sub


И получается , что первые две процедуры печатаются на одном лсте, а третья на втором! Почему так?????

[Matew]

Извините, перепил вчера, видать
Это вот из-за этого:
prhdc = CreateDCBynum("WINSPOOL", DeviceName$, vbNullString, agGetAddressForObject&(dmOutBuf(0)))