function [h]=printeps(filename);

    % Change font
    fontsize=18; %30; % 36; %
    set(findall(gcf,'-property','FontSize'),'FontSize',fontsize)
    set(findall(gcf,'-property','FontName'),'FontName','Helvetica')
    set(findall(gcf,'-property','linewidth'),'linewidth',1); %2)
    set(findall(gcf,'-property','markersize'),'linewidth',4);
    
    print([filename,'.eps'],'-depsc2');