Программа определения границы недоступных для печати зон по краям листа. Позволяет решить очень актуальную при выводе отчетов на принтер
задачу.
'При написании процедуры печати столкнулся как-то я с проблемой: 'у любого принтера есть так называемые границы печати,т.е области 'по краям , которые "лежат за границей досягаемости". 'Причем в зависимости от марки принтера и конкретной стороны листа значения 'колеблются в диапазоне от 4 до 13 мм. ' Чтобы ваш отчет на разных принтерах выглядел одинаково, '(в смысле размещения относительно краев листа), 'есть простой способ определить минимальные (собственные) поля принтера.Private Const HORZSIZE = 4 Private Const VERTSIZE = 6 Private Const HORZRES = 8 Private Const VERTRES = 10 Private Const LOGPIXELSX = 88 Private Const LOGPIXELSY = 90 Private Const PHYSICALHEIGHT = 111 Private Const PHYSICALOFFSETX = 112 Private Const PHYSICALOFFSETY = 113 Private Const PHYSICALWIDTH = 110 Private Const DD As Single = 25.4 Private Const C_MARGIN = 1440 / DD'точные значения минимальных полей в мм из LoadInfoPrivate Min_Margleft As Single Private Min_MargUp As Single Private Min_MargRigt As Single Private Min_MargDown As Single'получены из вашего диалога "page setup"(т.е. желаемые поля).Private MM_Left As Long Private MM_Rigt As Long Private MM_Up As Long Private MM_Down As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long'**************************************************Public Sub LoadInfo(nDC As Long) Dim nDev As Long Dim xOFSET, yOFSET, xWp, yHp, xDPI, _ yDPI, xRES, yRES nDev = nDC xDPI = GetDeviceCaps(nDev, LOGPIXELSX) '600"X,Y Pixels/Logical Inch:"yDPI = GetDeviceCaps(nDev, LOGPIXELSY) '600(разрешение)xOFSET = GetDeviceCaps(nDev, PHYSICALOFFSETX) '130"Physical X/Y Margin"yOFSET = GetDeviceCaps(nDev, PHYSICALOFFSETY) '150(отступы)xWp = GetDeviceCaps(nDev, PHYSICALWIDTH) '4962yHp = GetDeviceCaps(nDev, PHYSICALHEIGHT) '7014"Physical Height/Width"xRES = GetDeviceCaps(nDev, HORZRES) '4676"X,Y Dimensions in pixels:"yRES = GetDeviceCaps(nDev, VERTRES) '6744'результат в миллиметрахMin_Margleft = xOFSET / (xDPI / DD) Min_MargUp = yOFSET / (yDPI / DD) Min_MargRigt = (xWp - xOFSET - xRES) / (xDPI / DD) Min_MargDown = (yHp - yOFSET - yRES) / (yDPI / DD)'чтобы гарантировать "правильные" поля сами округлите ...End Sub'****************************************************** 'как использовать-тo ?! LoadInfo Printer.hdc MarginLeft = 30 'в миллиметрах MarginRight = 10 MarginTop = 20 MarginBottom = 20 '*******************************************************Public Property Get MarginLeft() As Long MarginLeft = MM_Left End Property'*******************************************************Public Property Let MarginLeft(ByVal nMargin As Long)'Dim newval As Single, mmval As LongIf nMargin < Min_Margleft Then MM_Left = Min_Margleft Else MM_Left = nMargin End If m_MarginLeft = (MM_Left - Min_Margleft) * C_MARGIN End Property'для остальных полей аналогично! ' m_MarginLeft недостающее расстояние которое необходимо учесть ' в процедуре печати коих полно всяких разных ,потому здесь не привожу.