use strict;
use Win32::Printer;

my $dc = new Win32::Printer( dialog          => PRINTSETUP );

$dc->Abort(); # Dass er nicht druckt...
 
#$dc->Close(); # Hiermit würde er nach dem OK drucken