function PlotPDF
% Datenerzeugung
data_double = rand(10,9)*100;% Messdaten
data_table1 = cellfun(@(x)sprintf('%.1f',x),num2cell(data_double),'UniformOutput',0);% Messdaten
data_names = cellfun(@(x)sprintf('M %.0f [dB(A)]',x),num2cell(1:10),'UniformOutput',0);% Namen der Messungen
table_header = {'Frequenz' '31,5' '63' '125' '250' '500' '1k' '2k' '4k' '8k'};% Table Header

% Erstellen der ersten grafischen Objekte
h1 = figure(...
    'Units','centimeters',...
    'PaperUnits','centimeters',...
    'PaperSize',[21 29.7],...
    'Color',[1 1 1],...
    'PaperPosition',[0 0 21 29.7],...
    'IntegerHandle','off',...
    'MenuBar','none',...
    'Name','Plot',...
    'NumberTitle','off',...
    'Position',[0 0 21 29.7],...
    'Resize','off',...
    'Visible','off',...
    'PaperType','A4',...
    'Tag','fig_plot');

TableAxes = axes(...
    'Parent',h1,...
    'Units','centimeters',...
    'Position',[3 20 15 8],...
    'visible','off',...
    'box','off',...
    'Tag','axes_table',...
    'XLim',[0 1],...
    'YLim',[0 1.1]);


% Schrifteigenschaften
font_art = 'Arial';
font_size = 10;
font_size2 = 8;

% Überschrift
text(0,1.1,'Messergebnisse','Color','k','Parent',TableAxes,'FontName',font_art,'FontSize',18,'FontWeight','bold');
% Datum
text(.88,1.1,date,'Color','k','Parent',TableAxes,'FontName',font_art,'FontSize',font_size2);

% Table Header
text(0,.9,table_header{1},'Color','b','Parent',TableAxes,'FontName',font_art,'FontSize',font_size);
x = [2:10]*.1;% x-Koordinaten
y= ones(1,9)*.9;% y-Koordinaten
text(x,y,table_header(2:end),'Color','b','Parent',TableAxes,'FontName',font_art,'FontSize',font_size,'HorizontalAlignment','right');

line([0 1],[.87 .87],'Parent',TableAxes,'Color','k')
line([0 1],[.86 .86],'Parent',TableAxes,'Color','k')

% Namen der Messungen
x = zeros(1,10);% x-Koordinaten
y= [9:-1:0]*.09;% y-Koordinaten
text(x,y,data_names,'Color','k','Parent',TableAxes,'FontName',font_art,'FontSize',font_size2,'FontWeight','bold');

% Messdaten
x = bsxfun(@times,ones(10,9),[2:10].*.1);% x-Koordinaten
y = bsxfun(@times,ones(10,9),[9:-1:0]'.*.09);% y-Koordinaten
for n=1:10
    text(x(n,:),y(n,:),data_table1(n,:),'Color','k','Parent',TableAxes,'FontName',font_art,'FontSize',font_size2,'HorizontalAlignment','right');
end


% Linien einzeichnen
x = [zeros(9,1) ones(9,1)];% x-Koordinaten
y = [[1:9]'*.09-.05 [1:9]'*.09-.05];% y-Koordinaten
for n=1:9
    line(x(n,:),y(n,:),'Parent',TableAxes,'Color','k')
end

% 1. Axes für plot
Plot1Axes = axes(...
    'Parent',h1,...
    'Units','centimeters',...
    'Position',[4 11.5 14 7],...
    'visible','on',...
    'box','on',...
    'Tag','axes_plot1');

plot(data_double(1:5,:),'Parent',Plot1Axes);% daten plotten
% Plot anpassen
set(Plot1Axes,'XTickLabel',{'31,5' '63' '125' '250' '500' '1k' '2k' '4k' '8k'})
xlabel('Frequenz [Hz]','Parent',Plot1Axes)
ylabel('Leq [dB]','Parent',Plot1Axes)
legend(data_names(1:5))
grid('on')

% 2. Axes für bar
Plot2Axes = axes(...
    'Parent',h1,...
    'Units','centimeters',...
    'Position',[4 2.5 14 7],...
    'visible','on',...
    'box','on',...
    'Tag','axes_plot1');

bar(data_double(1:5,:)','group','Parent',Plot2Axes);% daten plotten
% Plot anpassen
set(Plot2Axes,'XTickLabel',{'31,5' '63' '125' '250' '500' '1k' '2k' '4k' '8k'})
xlabel('Frequenz [Hz]','Parent',Plot2Axes)
ylabel('Leq [dB]','Parent',Plot2Axes)
legend(data_names(6:10))
colormap('winter')
grid('on')

try % wenn Acrobat installiert ist
    print(h1, '-dpdf', '-r300', 'test.pdf');
    winopen('test.pdf')
catch %#ok sonst wird der matlab printpreview geöffnet (der alles andere als komfortabel ist)
    uiwait(printpreview(h1))
end
delete(h1)
end