Add skip variable to sheetprint, to avoid label paper waste.

1 files changed, 3 insertions, 2 deletions

diff --git a/sheetprint b/sheetprint
index 5ee0a38..f0052f5 100755
--- a/sheetprint
+++ b/sheetprint
@@ -56,13 +56,14 @@ for ( my $i = 1; $i < 210; $i++) {
   }
 }
 
+my $skip = 2;
 my $x = mm2dots(25);
-my $y = mm2dots(30);
+my $y = mm2dots(32) + $skip * mm2dots(25);
 
 for my $filename ( `ls label-??????????.png` ) {
   my $label = GD::Image->newFromPng($filename);
   $a4->copy($label, $x, $y, 0, 0, $label->width(), $label->height());
-  $y += mm2dots(30);
+  $y += mm2dots(25);
 }
 
 open(PNGFILE, ">a4.png");