plotting - How to make a plot on top of other plot?

I want to plot two functions. One should appear on top of the other. The x axis has the same values for both functions, but should appear twice (the second- upper I want to be dashed). y axis should change to dashed type (when it reaches a little more than the highest value for the first function), start from zero again and have a different frame label. Here is just a simple example how can I present the graphs:

Needs["PlotLegends`"]
Plot[{Sin[x], Cos[x]}, {x, 0, 2 \[Pi]}, 
 PlotStyle -> {Red, {Black, Dashed, Thick}}, 

 BaseStyle -> {FontFamily -> "Times", FontSize -> 16}, 
 Frame -> {True, True, False, True}, 
 FrameLabel -> {"x", "y", "", "y1"}, 
 FrameStyle -> {Directive[18], Directive[18], Directive[18], Directive[18, Dashed, Thick]}, 
 PlotLegend -> {Style["Sin(x)", 14], Style["Cos(x)", 14]}, 
 LegendPosition -> {1.05, 0.1}, LegendSize -> {0.4, 0.3}, 
 LegendShadow -> 0.005, LegendTextSpace -> 4, ImageSize -> 550]

But I don't want the functions to be together. Let's say cos(x) in example should be above sin(x) and y1 should start above the end of y (at value y= 1.2). I also want to have another (dashed) x axis, which is at value y=1.2 (y1=0).

EDIT: Thank you for all answers. I tried all of them and come to my final code:

AA = Plot[barvilo, {\[Lambda], 337, 717}, PlotRange -> {0, 1.8}, 
   PlotStyle -> {Black, Dashed, Thick}, 
   BaseStyle -> {FontFamily -> "Times", FontSize -> 16}, 
   Frame -> {True, True, False, False}, ImageSize -> 1200, 
   FrameLabel -> {"", "Absorbanca [p.e.]"}, 
   FrameStyle -> {Directive[18, Dashed], Directive[18, Dashed]}, 
   PlotLegend -> Style["\[Alpha](N719)", 14], 
   LegendPosition -> {1.1, -0.15}, LegendSize -> {0.3, 0.2}, 
   LegendShadow -> 0.005, LegendTextSpace -> 2, 

   ImagePadding -> {{60, 30}, {50, 30}}];
BB = Plot[{a, b, c, d}, {\[Lambda], 337, 717}, PlotRange -> {0, 1.9}, 
   PlotStyle -> {Red, Orange, Black, Purple}, 
   BaseStyle -> {FontFamily -> "Times", FontSize -> 16}, 
   Frame -> {True, True, False, False}, 
   FrameLabel -> {"Valovna dolžina [nm]", 
     "Spektralna gostota sevanja [W/\!\(\*SuperscriptBox[\(m\), \
\(2\)]\)nm]"}, FrameStyle -> {Directive[18], Directive[18]}, 
   Filling -> {1 -> {{4}, {Lighter[Yellow], Opacity[0.02]}}, 
     4 -> {Axis, {Lighter[Yellow], Opacity[0.06]}}}, 

   ImagePadding -> {{60, 30}, {50, 30}}, 
   PlotLegend -> {Style["AM1,5G", 14], Style["AM1,5G + TrPt", 14], 
     Style["AM1,5G + TrEl", 14], Style["AM1,5G + TrPtEl", 14]}, 
   LegendPosition -> {1, 0.1}, LegendSize -> {0.4, 0.3}, 
   LegendShadow -> 0.005, LegendTextSpace -> 4, ImageSize -> 1200];
izracun = 
  Graphics[Text[
    StyleForm["269,37 W/\!\(\*SuperscriptBox[\(m\), \(2\)]\)", 
     FontSize -> 16], {550, -900}, {-1, -1}]];
izracun1 = 

  Graphics[Text[
    StyleForm["490,22 W/\!\(\*SuperscriptBox[\(m\), \(2\)]\)", 
     FontSize -> 16], {160, -970}, {-1, -1}]];
Show[GraphicsColumn[{AA, BB}, 
  Spacings -> {0, -380}], izracun, izracun1]

I am satisfied with it but I need to save it. Why is it not possible to save it, when I select it (Save selection as)? I can save like this just separate graphs (AA and/or BB). When I tried the code in the link bellow, the result is in the right form to save with Save graphic as. But this code is to complicated for me. https://mathematica.stackexchange.com/a/6882/6357

I can use print screen option .. Is there a better way to save it?