my $printer  = Wx::Printer->new;
my $print_data = Wx::PrintData->new;
$print_data->SetOrientation(wxLANDSCAPE);
$printer->GetPrintDialogData->SetPrintData($print_data);