my $loc_pdf_printdata = $self->{Ctl_RTC_Printing_Obj}->GetPrintData;
  $loc_pdf_printdata->SetOrientation( wxPORTRAIT );
  $loc_pdf_printdata->SetNoCopies(1);
  $loc_pdf_printdata->SetPaperId( wxPAPER_A4 );
  $loc_pdf_printdata->SetPrinterName("Virtual_PDF_Printer");  # This is the name of the Printer as it appears in cups on localhost:631.

  my $loc_printdialogdata = Wx::PrintDialogData->new();
  $loc_printdialogdata->SetPrintData($loc_pdf_printdata);
  my $loc_pdf_printout = Wx::Printout->new("PDF Report");
  my $loc_wxPrinter = Wx::Printer->new($loc_printdialogdata); 
  my $loc_success = $loc_wxPrinter->Print( undef, $loc_pdf_printout, 0 );
  print $loc_success.";