I totally missed that I needed https://wxperl.svn.sourceforge.net/svnroot/wxperl/wxPerl/trunk to try to help :)

I have now compiled wxPerl with Alien::wxWidgets::Config::msw_2_8_10_uni_gcc_3_4.

I get an error before any windows are displayed

Faulting application perl.exe, version 0.0.0.0, faulting module wx.dll
+, version 0.0.0.0, fault address 0x0000342a.
[download]

It occurs on this call

$i_RTC_panel->{printout}->GetRichTextBuffer();
[download]

This is likely a wxWidgets 2.8 specific bug

After removing that line I get same type of error after hitting preview

Faulting application perl.exe, version 0.0.0.0, faulting module unknow
+n, version 0.0.0.0, fault address 0xf0a8ca63.
[download]

I believe this is also related to my version of wxwidgets, but I can't be sure. Bummer.

So I went to see how wxperl_demo does it

sub OnPreview {
  my( $this, $event ) = @_;

  my $prev = Wx::DemoModules::wxPrinting::Printout->new( $this->canvas
+, "Preview" );
  my $print = Wx::DemoModules::wxPrinting::Printout->new( $this->canva
+s, "Print" );
  my $preview = Wx::PrintPreview->new( $prev, $print );
  my $frame = Wx::DemoModules::wxPrinting::PreviewFrame->new( $preview
+, wxTheApp->GetTopWindow,
                                     "Printing Demo Preview", [-1, -1]
+, [600, -1] );
  $frame->Initialize();

  $frame->Show( 1 );
}
[download]

After comparing that with samples/richtext/richtext.cpp...

wxPreviewFrame::OnCloseWindow

Enables the other frames in the application, and deletes the print preview object, implicitly deleting any printout objects associated with the print preview object.

So simply losing the wxRichTextPrinting object should work.

Actually, its probably only a partial fix

wxRichTextPrintout::SetRichTextBuffer

Sets the buffer to print. wxRichTextPrintout does not manage this pointer; it should be managed by the calling code, such as wxRichTextPrinting.

BEGIN {

    package MyRichTextPrintout;
    use base qw[ Wx::RichTextPrintout ];

    sub new {
        my ( $self, $buffer ) = @_;
        $self = $self->SUPER::new();
        $self->SetRichTextBuffer($buffer);
        return $self;
    }

    sub DESTROY {
        $_[0]->SetRichTextBuffer(undef);
        return;
    }
}

sub on_click_richtext_preview {

    my ($self) = @_;

    my $preview = Wx::PrintPreview->new(
        MyRichTextPrintout->new( $self->{Ctl_Report_Text_Txt}->GetBuff
+er() ),
        MyRichTextPrintout->new( $self->{Ctl_Report_Text_Txt}->GetBuff
+er() ),
    );

    $preview->SetZoom(200);

    my $frame = Wx::PreviewFrame->new( $preview, $self, "Printing Demo
+ Preview",
        wxDefaultPosition, [ 1360, 768 ], wxNO_BORDER );

    $frame->Initialize();

    my $state = $frame->Show(1);

}
[download]