Bonjours à tous,
Tous d'abord un grand merci à vous pour toutes les piste que vous m'avez
fournit. Malheureusement, le problème reste entier...
Je vais donc essayer d'être plus précis sur le problème que je rencontre et
les solutions que j'ai essayé :
Je veux imprimer le contenu d¹une fenêtre. Celle-ci contient un
³BevelButton² et un ³StaticText²
voici les deux procédures que j¹ai écrite pour exemple avec leur résultat:
-- impression du contenu d'une fenêtre SANS prévisualisation
dim ParametreImprimante As PrinterSetup
dim Imprimante As Graphics
ParametreImprimante= New PrinterSetup
If ParametreImprimante.PageSetupDialog then
Imprimante = OpenPrinterDialog (ParametreImprimante)
if Imprimante <> Nil then
DrawInto Imprimante, 0, 0
Imprimante = new Graphics // permet de clore l¹impression
end if
end if
=> Résultat : le texte contenu dans le ³Statictext² est imprimé lisiblement
et proprement
le ³BevelButton² n¹apparaît pas sur la feuille
-- impression du contenu d'une fenêtre AVEC prévisualisation
dim ParametreImprimante As PrinterSetup
dim Imprimante As Graphics
dim Prevu as Picture
ParametreImprimante= New PrinterSetup
If ParametreImprimante.PageSetupDialog then
Prevu = new Picture (ParametreImprimante.Width,
ParametreImprimante.Height, 32)
DrawInto Prevu.Graphics,0,0
// code pour l'affichage ici
Imprimante = OpenPrinterDialog (ParametreImprimante)
if Imprimante <> Nil then
Imprimante.DrawPicture Prevu,0,0
Imprimante = new Graphics // permet de clore l¹impression
end if
end if
=> Résultat : le texte contenu dans le ³Statictext² est imprimé mais très
pixellisé
le ³BevelButton² est également imprimer sur la feuille.
---- Conclusion
Il semble que la fonction ³DrawInto² utilisée dans les deux cas pour créer
une image de la fenêtre ne produise pas le même résultat dans les deux
cas...
Voilà... Si quelqu¹un trouve une explication à ce casse-tête merci de venir
en aide à un développeur proche de la folie...
Jean-Francois TORACCA
From Fri 23 Feb 2007 15:53:04 +0100
Return-Path: <realbasic-nug dot fr-bounces at lists dot realsoftware dot com>
X-Original-To: listarchive at realsoftware dot com
Delivered-To: listarchive at realsoftware dot com
Received: by xmail.realsoftware.com (Postfix, from userid 1037)
id 32E051A63713; Fri, 23 Feb 2007 06:53:13 -0800 (PST)
X-Spam-Checker-Version: SpamAssassin 3.1.1 (2006-03-10) on
www.realsoftware.com
X-Spam-Level:
X-Spam-Status: No, score=-1.6 required=4.5 testsºYES_00,NO_REAL_NAME
autolearn=no version=3.1.1
Received: from lists.realsoftware.com (m.realsoftware.com [66.116.103.65])
by xmail.realsoftware.com (Postfix) with ESMTP id E32B41A6370C;
Fri, 23 Feb 2007 06:53:09 -0800 (PST)
Received: from cust-66.116.103.65.switchcommgroup.com (localhost [127.0.0.1])
by lists.realsoftware.com (Postfix) with ESMTP id 80F1CE3CD5;
Fri, 23 Feb 2007 08:53:09 -0600 (CST)
X-Original-To: realbasic-nug dot fr at lists dot realsoftware dot com
Delivered-To: realbasic-nug dot fr at lists dot realsoftware dot com
Received: from mail.estia.fr (mail.estia.fr [212.208.189.7])
by lists.realsoftware.com (Postfix) with ESMTP id 056D9E3CCA
for <realbasic-nug dot fr at lists dot realsoftware dot com>;
Fri, 23 Feb 2007 08:53:07 -0600 (CST)
Received: from mail.estia.fr (localhost [127.0.0.1])
by localhost (Postfix) with SMTP
id ECA0F568F72; Fri, 23 Feb 2007 15:53:04 +0100 (CET)
Received: from localhost (localhost [127.0.0.1])
by mail.estia.fr (Postfix) with ESMTP
id 7AEC1568A2B; Fri, 23 Feb 2007 15:53:04 +0100 (CET)
Received: from ridls.estia.fr (ridls.estia.fr [212.208.189.210])
by webmail.estia.fr (IMP) with HTTP
for <hsannoud at 212 dot 208 dot 189 dot 7>; Fri, 23 Feb 2007 15:53:04
+0100
Message-ID: <1172242384 dot 45deffd073296 at webmail dot estia dot fr>
Date: Fri, 23 Feb 2007 15:53:04 +0100
From: h dot sannoud at estia dot fr
To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot
com>,
Jean-Francois TORACCA <jftoracca at elp-info dot fr>
Subject: Re: Image et impression et =?iso-8859-1?b?cHLpdnVlLi4u?References:
<C204BD96 dot 5C8C%jftoracca at elp-info dot fr>
In-Reply-To: <C204BD96 dot 5C8C%jftoracca at elp-info dot fr>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
User-Agent: Internet Messaging Program (IMP) 3.2.3
X-Originating-IP: 212.208.189.210
PureMessage: pure
X-PerlMx-Spam: Gauge=IIIIIII, Probability=7%, Report='NO_REAL_NAME 0,
__CP_MEDIA_BODY 0, __CT 0, __CTE 0, __CT_TEXT_PLAIN 0,
__HAS_MSGID 0, __MIME_TEXT_ONLY 0, __MIME_VERSION 0,
__SANE_MSGID 0, __SUBJ_HIGHBIT 0, __USER_AGENT 0'
Cc: Real Basic Liste <realbasic-nug dot fr at lists dot realsoftware dot com>
X-BeenThere: realbasic-nug dot fr at lists dot realsoftware dot com
X-Mailman-Version: 2.1.9
Precedence: list
Reply-To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware
dot com>
Sender: realbasic-nug dot fr-bounces at lists dot realsoftware dot com
Errors-To: realbasic-nug dot fr-bounces at lists dot realsoftware dot com
SVP, je veu plus recevoir vous mail. plz supprime moi de cette liste.
merci d'avance
Selon Jean-Francois TORACCA <jftoracca at elp-info dot fr>:
>
> Bonjours à tous,
>
> Tous d'abord un grand merci à vous pour toutes les piste que vous m'avez
> fournit. Malheureusement, le problème reste entier...
>
> Je vais donc essayer d'être plus précis sur le problème que je rencontre et
> les solutions que j'ai essayé :
>
> Je veux imprimer le contenu d¹une fenêtre. Celle-ci contient un
> ³BevelButton² et un ³StaticText²
> voici les deux procédures que j¹ai écrite pour exemple avec leur résultat:
> -- impression du contenu d'une fenêtre SANS prévisualisation
> dim ParametreImprimante As PrinterSetup
> dim Imprimante As Graphics
>
> ParametreImprimante= New PrinterSetup
>
> If ParametreImprimante.PageSetupDialog then
> Imprimante = OpenPrinterDialog (ParametreImprimante)
> if Imprimante <> Nil then
> DrawInto Imprimante, 0, 0
> Imprimante = new Graphics // permet de clore l¹impression
> end if
> end if
>
> => Résultat : le texte contenu dans le ³Statictext² est imprimé lisiblement
> et proprement
> le ³BevelButton² n¹apparaît pas sur la feuille
>
> -- impression du contenu d'une fenêtre AVEC prévisualisation
> dim ParametreImprimante As PrinterSetup
> dim Imprimante As Graphics
> dim Prevu as Picture
>
> ParametreImprimante= New PrinterSetup
>
> If ParametreImprimante.PageSetupDialog then
> Prevu = new Picture (ParametreImprimante.Width,
> ParametreImprimante.Height, 32)
> DrawInto Prevu.Graphics,0,0
> // code pour l'affichage ici
>
> Imprimante = OpenPrinterDialog (ParametreImprimante)
> if Imprimante <> Nil then
> Imprimante.DrawPicture Prevu,0,0
> Imprimante = new Graphics // permet de clore l¹impression
> end if
> end if
>
> => Résultat : le texte contenu dans le ³Statictext² est imprimé mais très
> pixellisé
> le ³BevelButton² est également imprimer sur la feuille.
>
> ---- Conclusion
> Il semble que la fonction ³DrawInto² utilisée dans les deux cas pour créer
> une image de la fenêtre ne produise pas le même résultat dans les deux
> cas...
>
> Voilà... Si quelqu¹un trouve une explication à ce casse-tête merci de venir
> en aide à un développeur proche de la folie...
>
> Jean-Francois TORACCA
>
>
----------------------------------------------------------------
Message envoyé depuis le serveur de mail estia.fr
|