il ne marche plus
Set form2.picture2.Picture = form1.picture1.Image
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate 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
Call BitBlt(Form2.Picture2.hDC, 0, 0, form2.picture2.scalewidth, form2.picture2.scaleheight, form1.picture1.hdc, 0, 0, vbsrccopy)
Private Sub mnuPrint_Click() Me.PrintForm End Sub
Private Sub Print_Click() Dim rv As Long Me.ScaleMode = vbTwips ' default Me.Visible = True DoEvents Picture1.SetFocus Picture2.AutoRedraw = True rv = SendMessage(Picture1.hwnd, WM_PAINT, Picture2.hDC, 0) rv = SendMessage(Picture1.hwnd, WM_PRINT, Picture2.hDC, _ PRF_CHILDREN + PRF_CLIENT + PRF_OWNED) Picture2.Picture = Picture2.Image Picture2.AutoRedraw = False Printer.Print "" Printer.PaintPicture Picture2.Picture, 0, 0 Printer.EndDoc End Sub