'------------------------------------------------------------ 
	' Command0_Click 
	' 
	'------------------------------------------------------------ 
	Private Sub Command0_Click() 
	On Error GoTo Command0_Click_Err
 
	    DoCmd.OpenReport "Table1", acViewPreview, "", "", acNormal 
	    DoCmd.RunCommand acCmdPrint
 
	 
	Command0_Click_Exit: 
	    Exit Sub
 
	Command0_Click_Err: 
	    MsgBox Error$ 
	    Resume Command0_Click_Exit
 
	End Sub