my $printer = Wx::Printer->new;
      my $printout = Wx::Printout->new($self->{kasse}, "test");
      $printer->Print($self->{kasse}, $printout, 1);
      $printout->Destory;