Сложная печать картинки...

[TNG]

Мне необходимо распечатать обыкновенную форму, допустим Form1, но при этом надо, чтобы печаталось сразу несколько экземпляров на одном листе, с задаными размерами, отступами между друг другом и краями. Как так сделать? Помогите, Please!!!

[SSecurity]

Я тебе могу предложить такой вариант ...
Делаешь ПРИНТСКРИН формы ... засовываешь его в картинку, picture1 у которой visibled=False ф потом на принтер отправляешь страницы как тебе нужно с учетом любого интервала:)
Picture1.AutoRedraw = TRUE
Вот код, по деланью принтскринов.

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

Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" _
          (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, _
          ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
          ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020

Sab MakePrntScr()
Dim hDesk, hDeskDC
CurHDC = GetFocus
hDesk = CurHDC
hDeskDC = GetDC(hDesk)
BitBlt Picture1.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY


могу предложить проектик, который я использую чтобы получать картинки с формы и сохраняти их в определенную дирректорию

[TNG]

А это на всех Виндах будет идти? У меня-то XP, а вот друганы говорят, что такой трюк ни везде проходит: в других Виндах ПринтСкрин делается на весь экран, а не только на форму.

[SSecurity]

Феничка состоит в том, что "Делая ПРИНТСКРИН" ты просто указываешь в качестве источника не wHDC именно окна ... короче щас размещу проет ... где я для себя программку делал принскрины автоматом получать ... у меня в 2000й и 98й работало безотказно