DoCmd.OpenReport "Informe1", acPreview    
    Reports("Informe1").Visible = False   
    DoCmd.RunCommand acCmdPrint    
    DoCmd.Close acReport, "Informe1"
   

DoCmd.OpenReport "Informe", acPreview, , , acHidden