$eff_paper_size[$_] = $paperpts[$_] - 2.0*$borders[$_] foreach qw(0 1);
@eff_paper_size = reverse @eff_paper_size if $lp_y{rotate_paper};
$eff_paper_size[$_] = $paperpts[$_] - 2.0*$borders[$_] foreach qw(0 1);
@eff_paper_size = reverse @eff_paper_size if $lp_y{rotate_paper};