Print Preview ActiveX Active Users: 44 / Visits Today: 282
Highest Active Users: 99
Print Preview ActiveX
Home | Profile | Register | Active Topics | Members | Search | FAQ | RSS
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Print Preview
 Tips & Tricks
 Sample of a diary in PPreview
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic: Hide the red border Topic Next Topic: Sample of Voucher in Print Preview  

Waty Thierry
Forum Admin

Belgium
635 Posts

Posted - 02/06/2004 :  12:02:34  Show Profile  Visit Waty Thierry's Homepage  Reply with Quote
Private Sub Command50_Click()

Dim yPos As Long
Dim xPos As Long

Dim xPosPicture As Long
Dim yPosPicture As Long

Dim yPosProgramme As Long

Dim yPosBelowPicture As Long

Dim sText As String
Dim nI As Integer

With preview
.AddFirstPage "0.5 cm", "0.5 cm", "0.5 cm", "0.5 cm"
.PageSize = prPSA4

.FontName = "Verdana"

.CurrentFrame = "inside"

sText = vbNullString

For nI = 1 To 6
sText = sText & "festival de Jazz ‘sim copans’ de souillac 15 au 20 juillet 2003 / "
Next

.ForeColor = &H8000000F
.FontBold = False
.FontSize = 14
.ParaText "<ju>" & sText, 0, 0, .PageInsideWidth, .TextHeight("A") * 3

' *** Draw lines
.LineType = vbSolid
.LineColor = vbBlack
.DrawWidth = 50
.DrawLine 0, .TextHeight("A") * 3, .PageInsideWidth, .TextHeight("A") * 3, prLBLine
.DrawLine 0, .TextHeight("A") * 4, .PageInsideWidth, .TextHeight("A") * 4, prLBLine

' *** Draw big title
.FontName = "Times New Roman"
.ForeColor = vbBlack
.FontBold = False
.FontSize = 55
sText = "la jazette"
.ParaText "<ce>" & sText, 0, 0, .PageInsideWidth, .TextHeight("A") * 3

' *** Draw other titles
.FontName = "MS Sans Serif"
.ForeColor = vbBlack
.FontBold = False
.FontSize = 11
sText = "samedi 19 juillet 2003 - n°30"
.AddTextAt sText, 0, .TextHeight("A") * 4.2

sText = "fondateur : sim copans"
.AddTextAt sText, 9350, .TextHeight("A") * 4.2
.FontSize = 10

' *** Start first column
sText = "<fs 13><bd 1>ÉDITORIAL<bd 0><ju><fs 10><nl>"
sText = sText & "Eh ! Dites ! Oh !<nl>"
sText = sText & "T’entends, l’ami, le vol noir des corbeaux sur la… "
sText = sText & "place de Souillac ? Le cri des musiciens qu’on "
sText = sText & "enchaînerait bien, que certains enchaîneraient bien "
sText = sText & "– la culture, les créateurs, ça se contrôle moins bien "
sText = sText & "que les papiers d’identité –, mais qui s’échappent, "
sText = sText & "prennent le large ? La ville est assiégée : saxophones "
sText = sText & "qui volent en croches, qu’on vole en fiction. "
sText = sText & "Trombones et trompettes, tambours et tambourines "
sText = sText & "défi lent, démangent les pieds et les hanches, allez ! "
sText = sText & "On danse ! On chante ! On souffle et on cause ! "
sText = sText & "Les barreaux se barre, la liberté se lève, un vent de "
sText = sText & "création souffle sur le causse. Par intermittence ? "
sText = sText & "Non ! La musique, c’est en permanence que ça se "
sText = sText & "travaille, que ça se vit. La liberté aussi. Freedom ! "

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = 0
yPos = .TextHeight("A") * 6
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

' *** Draw line
.LineColor = &H8000000F
.LineType = vbSolid
.DrawWidth = 50
yPos = .CurrentY + .TextHeight("A")
.DrawLine 0, yPos, .PageInsideWidth / 2.2, yPos, prLBLine

' *** Put next text
sText = "<fs 13><bd 1>Le temps des gitans<bd 0><ju><fs 10><nl><nl>"
sText = sText & "<bd 1>Biréli Lagrène Gipsy<bd 0><nl><nl>"
sText = sText & "Il y avait une sorte d’excitation dans l’air, comme du "
sText = sText & "temps où le cirque arrivait au village. "

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = 0
yPos = .CurrentY + .TextHeight("A")
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

sText = "<ju>Le public, dès 19 heures, se pressait autour "
sText = sText & "de la place Betz, la chaleur "
sText = sText & "aidant, la tension montait. "
sText = sText & "On avait l’impression "
sText = sText & "d’entendre chuchoter dans "
sText = sText & "le fond de l’air : "
sText = sText & "Les gitans arrivent. "
sText = sText & "Les manouches. Le mythe du "
sText = sText & "guitariste au regard sombre "
sText = sText & "qui emporte le cœur de la "
sText = sText & "fille ou pire, de la femme du "
sText = sText & "châtelain. "
sText = sText & "Ils arrivent. Imposants dans "
sText = sText & "leur discrétion, ils passent, "
sText = sText & "instruments sur le dos, "
sText = sText & "poursuivent jusqu’aux loges. "
sText = sText & "La foule semble les sentir. "
sText = sText & "Dans cette ambiance-là, la "
sText = sText & "colère des professionnels "
sText = sText & "du spectacle dont le statut "
sText = sText & "et l’existence"

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = 0
yPos = .CurrentY
yPosPicture = yPos
.ParaText sText, xPos, yPos, .PageInsideWidth / 4

sText = "<ju>sont de plus en plus menacés, dont le mouvement est de plus "
sText = sText & "en plus souvent méprisé, qui se sentent rejetés… "
sText = sText & "comme des gitans, tiens, prend sa place, le temps "
sText = sText & "d’expliquer, une fois de plus, la nécessité d’une "
sText = sText & "culture plurielle. "
sText = sText & "Et puis, enfin. Ils sont là. Tranquilles, fiers. Grande "
sText = sText & "classe, les héritiers de Django. Deux morceaux "
sText = sText & "pour se chauffer, puis Florin Niculescu commence "
sText = sText & "à montrer l’étendue, on a envie de dire la hauteur, "
sText = sText & "de son talent. Une maîtrise du violon à faire fondre "
sText = sText & "la fille, la femme voire la cuisinière du châtelain. "
sText = sText & "Comme en réponse, la guitare de Biréli s’envole. "

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = 0
yPos = .CurrentY
yPosBelowPicture = yPos
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

' *** Draw line
.LineColor = &H8000000F
.LineType = vbSolid
.DrawWidth = 50
yPos = .CurrentY + .TextHeight("A")
.DrawLine 0, yPos, .PageInsideWidth / 2.2, yPos, prLBLine
yPosProgramme = .CurrentY

' *** Draw the picture
xPosPicture = .PageInsideWidth / 3.8
yPosPicture = yPosPicture + .TextHeight("A") / 2
.DrawPicture App.Path & "\Jazette.jpg", prSTExternal, xPosPicture, yPosPicture

sText = "<ju><fs 10>Il est brillant, bouillonnant, léger et précis, d’une "
sText = sText & "incroyable dextérité, tout cela semble trop facile. "
sText = sText & "L’interprétation cristalline montre tour à tour "
sText = sText & "les nombreuses racines musicales de Django. "
sText = sText & "Il y a du fl amenco, du roumain, des influences "
sText = sText & "qui errent entre l’Europe de l’Est et l’Afrique "
sText = sText & "du Nord, sans jamais perdre de vue le jazz, et "
sText = sText & "lentement, imperceptiblement, les musiciens se "
sText = sText & "chauffent, se lâchent, vibrent, et prennent feu. Une "
sText = sText & "autocombustion spontanée, une montée en rouge, "
sText = sText & "c’est du grand, du très grand spectacle. "
sText = sText & "Du retour de l’entracte, Florin Niculescu entre seul "
sText = sText & "sur scène pour un solo violon d’une virtuosité rare. "
sText = sText & "Pour celui qui en douterait encore, la preuve est "
sText = sText & "faite : le jazz, c’est de la très grande musique, celle "
sText = sText & "qui vous entre dans le ventre, qui vous attrape les "
sText = sText & "tripes, le cœur, et vous emmène très, très loin. Petit "
sText = sText & "à petit, le silence se fait. Total respect, Monsieur "
sText = sText & "Niculescu. "
sText = sText & "Puis Biréli le rejoint, désinvolte, canette à la main, "
sText = sText & "l’air d’être en vacances, et c’est reparti. Lagrène "
sText = sText & "se lance dans une interprétation d’Elvis Presley, "
sText = sText & "Hono Winterstein chante « Are you lonesome », "
sText = sText & "l’hommage à Django se transforme en hommage à "
sText = sText & "Sinatra, à la country, les musiciens sont morts de rire, "
sText = sText & "le public aussi. "

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = .PageInsideWidth / 2#
yPos = .TextHeight("A") * 6
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

sText = "<ju>Quand un musicien s’amuse, il joue "
sText = sText & "avec la musique. Gipsy Project va même jusqu’à "
sText = sText & "imiter la sirène deux-tons d’une ambulance suite à "
sText = sText & "un crissement de pneus entendu au loin. "
sText = sText & "Etonnez vous, qu’elle craque, la châtelaine. Non seulement "
sText = sText & "ils sont brillants, mais en plus, ils rigolent. Pensez "
sText = sText & "bien, le châtelain, à côté… "
sText = sText & "Le public de Souillac a finalement eu l’honneur hier soir"
sText = sText & "d’assister non pas à un concert, mais à une "
sText = sText & "réunion de virtuoses, un cadeau intime offert"

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = .PageInsideWidth - .PageInsideWidth / 3.8
yPos = .CurrentY
.ParaText sText, xPos, yPos, .PageInsideWidth / 4.6

sText = "<ju>depuis la scène par des musiciens hors pair à un public "
sText = sText & "complètement acquis. De la séduction pure. "

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = .PageInsideWidth / 2#
yPos = yPosBelowPicture
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2


sText = "<fs 13><bd 1>AU PROGRAMME !<bd 0><ju><fs 8><nl><nl>"
sText = sText & "«Ne pas être le simple miroir de la coutume américaine»"

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = 0
yPos = yPosProgramme
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

sText = "<ju><fs 8>‡ samedi 19 juillet - 15h30 - Salle de Mlle Salives (Mairie) - Entrée libre<nl><nl>"
sText = sText & "<bd 1>T<bd 0>ABLE-<bd 1>R<bd 0>ONDE AUTOUR DU NUMÉRO DE LA «<bd 1>R<bd 0>EVUE <bd 1>F<bd 0>RANÇAISE D’<bd 1>E<bd 0>TUDES <bd 1>A<bd 0>MÉRICAINES» CONSACRÉ À "
sText = sText & "SIM COPANS ANIMÉE PAR PHILIPPE FRÉCHET<nl>"
sText = sText & "<it 1>avec la participation de Taffy Martin, Xavier Daverat, Bernard Vincent, Éric Gonzales, Jonathan Duclos-Arkilovitch<it 0>"

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = 100
yPos = .CurrentY + .TextHeight("A")
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

.DrawRoundRect 0, yPos - 100, .PageInsideWidth / 2.2 + 200, .CurrentY + .TextHeight("A"), 360

sText = "<ce><fs 10>Réservations à l’Office du Tourisme<nl><nl>"
sText = sText & "Tél : 05 65 37 81 56"

.FontName = "Verdana"
.ForeColor = vbBlack
.FontBold = False
xPos = .PageInsideWidth / 2#
yPos = yPosProgramme + .TextHeight("A") * 2
.ParaText sText, xPos, yPos, .PageInsideWidth / 2.2

.LineColor = &H8000000F
.LineType = vbSolid
.DrawWidth = 50
.DrawLine .PageInsideWidth / 2 + 500, yPos - 100, .PageInsideWidth / 2 + .TextWidth("Réservations à l’Office du Tourisme") + 1000, .CurrentY + .TextHeight("A"), prLBBox

.ShowPrintable = False
.endDocument

End With

End Sub


Come and visit :
www.immoassist.com
www.ppreview.net
www.vbdiamond.com
www.d2dsources.com
www.mandix.com
Go to Bottom of Page
  Previous Topic: Hide the red border Topic Next Topic: Sample of Voucher in Print Preview  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Print Preview ActiveX © Mandix Go To Top Of Page
This page was generated in 0.09 seconds. Powered By: Snitz Forums 2000 Version 3.4.02