IMPRIMIR FORM EM FOLHA A4

USUARIO.EXCLUIDOS 20/12/2003 11:45:37
#1812 Resposta escolhida

Tenho este exemplo que uma vez achei por ai, helder não sei como fuciona mas derepente possa lhe ajudar:
Ele é um form com dois Picture

Private Sub Imprimir():
DoEvents
keybd_event VK_MENU, 0, 0, 0
DoEvents
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
DoEvents
HiddenPict.Picture = Clipboard.GetData(vbCFBitmap)
Printer.Orientation = vbPRORLandscape
If NormalOption.Value Then
wid = Printer.ScaleX(HiddenPict.ScaleWidth, ScaleMode, Printer.ScaleMode)
hgt = Printer.ScaleY(HiddenPict.ScaleHeight, ScaleMode, Printer.ScaleMode)
xmin = (Printer.ScaleWidth - wid) / 2
ymin = (Printer.ScaleHeight - hgt) / 2
Else
aspect = HiddenPict.ScaleHeight / _
HiddenPict.ScaleWidth
wid = Printer.ScaleWidth
hgt = Printer.ScaleHeight
If hgt / wid aspect Then
hgt = aspect * wid
xmin = Printer.ScaleLeft
ymin = (Printer.ScaleHeight - hgt) / 2
Else
wid = hgt / aspect
xmin = (Printer.ScaleWidth - wid) / 2
ymin = Printer.ScaleTop
End If
End If
Printer.PaintPicture HiddenPict.Picture, xmin, ymin, wid, hgt
Printer.EndDoc
MousePointer = vbDefault
End Sub

USUARIO.EXCLUIDOS 20/12/2003 16:05:31
#1831

Voce pode postar seu emaill???
não consegui pegar pelo atalho que você postou....
Sds Geronimo

USUARIO.EXCLUIDOS 28/12/2003 10:56:16
#2622

Helder desculpe pela demora é que sai de ferias estou lhe enviando hoje o exemplo,
sds geronimo

USUARIO.EXCLUIDOS 30/12/2003 19:17:25
#2948

Helder foi esper oque seja de ajuda, sds geronimo