With .ActiveSheet.PageSetup
                  .PrintTitleRows    = "$1:$6"
                  .PrintTitleColumns = ""                  
         	  .TopMargin      = 0.5   && 

         	  .BottomMargin   = 0.5   &&          

	          .LeftMargin     = 0.5   && 	    

	          .RightMargin    = 0.5   && 

    	          .Orientation    = xlLandscape   
   EndWith