comment on

Thanks again. Your code was helpful although I am still not able to solve my issue. I reduced the margins to the minimum allowed by my printer but the rightmost few characters are still being truncated. Here is my code so far:

sub ShowPrintPreview {
    my ($self, $event) = @_;
        
    # Printout class for HTML documents
    my $printout = Wx::HtmlEasyPrinting->new("Printing", $htmlwindow);
    # Get pointer to PageSetupDialogData instance
    my $psd = $printout->GetPageSetupData();
    # Set the margins to fit the page
    $psd->SetMarginTopLeft([3,3]);
    $psd->SetMarginBottomRight([3,3]);
    # Preview the text
    $printout->PreviewText($htmlcontent);
    }
[download]

I have tried to use SetFonts to reduce the font sizes on the preview page. The default sizes according to the wxwidgets.org are seven integers in the range -2 to +4. However only the third value, 0 seems to have any effect. When I change this from 0 to -1 the page text becomes too small to be readable. Changes to any of the other values seem to have no effect on the text size. Is there any way to scale the print out to fit a letter size page?

In reply to Re^4: How to use wxHtmlEasyPrinting by halweitz
in thread How to use wxHtmlEasyPrinting by halweitz

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


"be consistent"
	PerlMonks