Perhaps something like this?
SetOptions[
Plot, {ImageSize -> 400, AspectRatio -> 0.2,
ImagePadding -> {{100, 1}, {10, 10}}, Frame -> True}];
path = FileNameJoin[{$HomeDirectory, "DeskTop", "plots.png"}];
Manipulate[
plots = Panel @
Column[
{Plot[x, {x, 1, 4}, Epilog -> {Line[{{y, 0}, {y, 10}}]}],
Plot[x^z/4^z, {x, 1, 4}, Epilog -> {Line[{{y, 0}, {y, 10}}]}]}],
{plots, None},
{y, 1, 4},
{z, 1, 10, 1},
Row[
{Spacer[140],
Button["Export Plots", Export[path, plots],
Method -> "Queued", ImageSize -> Automatic]}],
TrackedSymbols :> {y, z}]
Clicking on the button, produces the following PNG:
