ocx print et printprview

Salut,

Cela dépend du type de données que tu veux apercevoir, le mieux est quand
même de faire cela soit même je pense.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Franck <franck112@hotmail.com> a écrit :

Bonjour
Quelqu'un sait il ou on peut trouver un bon ocx permetant de faire un
apercu avant impression a la maniere de word et un autre permettant
l'impression Merci, j'attends vos suggestrions

Bonjour,

Impression et Apercu avant impression.

Tu trouveras les explications a la page :

http://support.microsoft.com/default.aspx?scid=kb;
en-us;Q193379

et pour les "scroll bar" :

http://msdn.microsoft.com/library/default.asp?url /library/en-us/vbcon98/html/vbconscrollbarcontrols
scenariocreatingscrollablegraphicsviewport.asp

En attendant voici des extraits (copier/coller) de
mon application :

'pr appeler l'impression :
Private Sub Command3_Click()
Call ImpressionOuApercu(Printer)
Printer.EndDoc
End Sub


'pr appeler l'apercu :
Private Sub Command4_Click()
Picture2.Top = 0
Picture2.Height = 7900
Picture2.Left = 3200
Picture2.Width = 8400
Picture2.Visible = True
Picture2.ZOrder


Picture1.Top = 500
Picture1.Height = 11500
Picture1.Left = 0
Picture1.Width = 8000
Picture1.Visible = True

VScroll1.Top = 0
VScroll1.Height = Picture2.Height - 375
VScroll1.Left = Picture2.Width - VScroll1.Width

HScroll1.Top = Picture2.Height - VScroll1.Width
HScroll1.Width = Picture2.Width - VScroll1.Width
HScroll1.Left = 0


Picture1.Cls

'il y a moyen d'affiner les ratios mais moi je me
contente pr mon application de :
'0,7 pour les caractéres et les images, 0,.9 pr
les tabulations et 0,15 pour les lignes
' a toi de voir selon ton affichage !

Call ImpressionOuApercu(Picture1, 0.7, 0.9, 0.15)
'caractere tabulation ligne
End Sub


'la routine d'impression ET d'apercu :

Private Sub ImpressionOuApercu(objDestination As
Object, Optional dRatio As Double = 1, Optional
tRatio As Double = 1, Optional lRatio As Double 1)

Dim objimage As Picture
Set objimage LoadPicture("c:daviwebcoloviddavid01.bmp")
objDestination.PaintPicture objimage, 4650 *
dRatio, 850 * dRatio, 2000 * dRatio, 800 * dRatio

Dim objimage2 As Picture
Set objimage2 LoadPicture("c:daviwebcolovidbonhomme01.jpg")
objDestination.PaintPicture objimage2, 1650 *
dRatio, 3200 * dRatio, 2000 * dRatio, 1700 *
dRatio


With objDestination
.FontName = "Times New Roman"
.FontSize = 16 * dRatio


X0 = 400 * dRatio
x1 = 8500 * dRatio

.DrawWidth = 15 * lRatio
objDestination.Line (380 * dRatio, 250 *
dRatio)-(11100 * dRatio, 250 * dRatio)

.CurrentX = 2500 * dRatio
.CurrentY = 350 * dRatio

objDestination.Print "F a b r i q u e d e P e
i n t u r e s et V e r n i s";

.FontSize = 10 * dRatio
.CurrentX = X0
.CurrentY = 750 * dRatio
objDestination.Print "T.V.A. : Be 403.943.929";

'exemple ligne
.DrawWidth = 15 * lRatio
objDestination.Line (380 * dRatio, 250 *
dRatio)-(11100 * dRatio, 250 * dRatio)

End with

End sub

Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
VScroll1_Change

End Sub

'reste a faire le boulot pour le HScroll
'et pour le zoom de l'aperçu !


a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Franck" <franck112@hotmail.com> a écrit dans le message de news:
O$hft90REHA.2704@TK2MSFTNGP10.phx.gbl...

Bonjour
Quelqu'un sait il ou on peut trouver un bon ocx permetant de faire un

apercu

avant impression a la maniere de word et un autre permettant l'impression
Merci, j'attends vos suggestrions

Merci pour les reponses
Franck


"David" <david.sa@skynet.be> a écrit dans le message de
news:eTIlxuASEHA.3168@tk2msftngp13.phx.gbl...

Bonjour,

Impression et Apercu avant impression.

Tu trouveras les explications a la page :

http://support.microsoft.com/default.aspx?scid=kb;
en-us;Q193379

et pour les "scroll bar" :

http://msdn.microsoft.com/library/default.asp?url > /library/en-us/vbcon98/html/vbconscrollbarcontrols
scenariocreatingscrollablegraphicsviewport.asp

En attendant voici des extraits (copier/coller) de
mon application :

'pr appeler l'impression :
Private Sub Command3_Click()
Call ImpressionOuApercu(Printer)
Printer.EndDoc
End Sub


'pr appeler l'apercu :
Private Sub Command4_Click()
Picture2.Top = 0
Picture2.Height = 7900
Picture2.Left = 3200
Picture2.Width = 8400
Picture2.Visible = True
Picture2.ZOrder


Picture1.Top = 500
Picture1.Height = 11500
Picture1.Left = 0
Picture1.Width = 8000
Picture1.Visible = True

VScroll1.Top = 0
VScroll1.Height = Picture2.Height - 375
VScroll1.Left = Picture2.Width - VScroll1.Width

HScroll1.Top = Picture2.Height - VScroll1.Width
HScroll1.Width = Picture2.Width - VScroll1.Width
HScroll1.Left = 0


Picture1.Cls

'il y a moyen d'affiner les ratios mais moi je me
contente pr mon application de :
'0,7 pour les caractéres et les images, 0,.9 pr
les tabulations et 0,15 pour les lignes
' a toi de voir selon ton affichage !

Call ImpressionOuApercu(Picture1, 0.7, 0.9, 0.15)
'caractere tabulation ligne
End Sub


'la routine d'impression ET d'apercu :

Private Sub ImpressionOuApercu(objDestination As
Object, Optional dRatio As Double = 1, Optional
tRatio As Double = 1, Optional lRatio As Double > 1)

Dim objimage As Picture
Set objimage > LoadPicture("c:daviwebcoloviddavid01.bmp")
objDestination.PaintPicture objimage, 4650 *
dRatio, 850 * dRatio, 2000 * dRatio, 800 * dRatio

Dim objimage2 As Picture
Set objimage2 > LoadPicture("c:daviwebcolovidbonhomme01.jpg")
objDestination.PaintPicture objimage2, 1650 *
dRatio, 3200 * dRatio, 2000 * dRatio, 1700 *
dRatio


With objDestination
.FontName = "Times New Roman"
.FontSize = 16 * dRatio


X0 = 400 * dRatio
x1 = 8500 * dRatio

.DrawWidth = 15 * lRatio
objDestination.Line (380 * dRatio, 250 *
dRatio)-(11100 * dRatio, 250 * dRatio)

.CurrentX = 2500 * dRatio
.CurrentY = 350 * dRatio

objDestination.Print "F a b r i q u e d e P e
i n t u r e s et V e r n i s";

.FontSize = 10 * dRatio
.CurrentX = X0
.CurrentY = 750 * dRatio
objDestination.Print "T.V.A. : Be 403.943.929";

'exemple ligne
.DrawWidth = 15 * lRatio
objDestination.Line (380 * dRatio, 250 *
dRatio)-(11100 * dRatio, 250 * dRatio)

End with

End sub

Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
VScroll1_Change

End Sub

'reste a faire le boulot pour le HScroll
'et pour le zoom de l'aperçu !


a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Franck" <franck112@hotmail.com> a écrit dans le message de news:
O$hft90REHA.2704@TK2MSFTNGP10.phx.gbl...
> Bonjour
> Quelqu'un sait il ou on peut trouver un bon ocx permetant de faire un
apercu
> avant impression a la maniere de word et un autre permettant

l'impression

> Merci, j'attends vos suggestrions
>
>