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}->GetBuffer() ),
        MyRichTextPrintout->new( $self->{Ctl_Report_Text_Txt}->GetBuffer() ),
    );

    $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);

}