Private Sub CmdImpression_Click() Dim I As Integer Cmd1.Visible = False CmdFin.Visible = False CmdImpression.Visible = False Me.Picture = Nothing txtTop.BackColor = RGB(255, 255, 255) txtTop.ForeColor = RGB(0, 0, 0) Me.BackColor = RGB(255, 255, 255) lblDate.ForeColor = RGB(0, 0, 0) lblMAX.ForeColor = RGB(0, 0, 0) lblMin.ForeColor = RGB(0, 0, 0) lblVMax.ForeColor = RGB(0, 0, 0) For I = 1 To 45 Me.Controls("label" & I).ForeColor = RGB(0, 0, 0) Next Me.ScaleTop = 500 Me.ScaleLeft = 500 Printer.ColorMode = vbPRCMMonochrome Printer.Orientation = vbPRORLandscape PrintForm Printer.EndDoc End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question