Print Preview ActiveX Active Users: 13 / Visits Today: 189
Highest Active Users: 99
Print Preview ActiveX
Home | Profile | Register | Active Topics | Members | Search | FAQ | RSS
 All Forums
 Print Preview
 Tips & Tricks
 Sample of Voucher in Print Preview

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert Email Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

   Insert a File

Check here to subscribe to this topic.
   

T O P I C    R E V I E W
Waty Thierry Posted - 02/06/2004 : 11:57:50
Private Sub Command17_Click()
' #VBIDEUtils#************************************************************
' * Author : Waty Thierry
' * Web Site : www.ppreview.net
' * E-Mail : waty.thierry@vbdiamond.com
' * Date : 09/12/2002
' * Time : 20:09
' * Module Name : MainTest
' * Module Filename : main.frm
' * Procedure Name : Command17_Click
' * Purpose :
' * Parameters :
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************

Dim yPos As Long
Dim xPos As Long

Dim sInfos As String

Dim nI As Long

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

yPos = .PageInsidetop
For nI = 1 To 3
.FontName = "Arial"
.FontSize = 10

.LineType = vbSolid
.LineColor = vbBlack
.DrawWidth = 50
.DrawLine .PageInsideLeft, yPos + .TextHeight("A") * 4, .PageInsideRight - .PageInsideLeft, yPos + .TextHeight("A") * 4, prLBLine
.DrawLine .PageInsideLeft + .C_Twips("4 cm"), yPos + .TextHeight("A"), .PageInsideLeft + .C_Twips("4 cm"), yPos + .TextHeight("A") * 4, prLBLine

.TextRotation = 90
.FontBold = True
.AddTextAt "From", .PageInsideLeft, yPos + .TextHeight("A") * 3.7
.TextRotation = 0
.FontBold = False

yPos = yPos + .TextHeight("W")
.AddTextAt "ImmoAssist", .PageInsideLeft + .TextWidth("W") * 3, yPos

.FontSize = 24
.FontBold = True
.AddTextAt Year(Date), .PageInsideLeft + .C_Twips("4.2 cm"), yPos
xPos = .CurrentX + .TextWidth(Year(Date)) + .C_Twips("0.5 cm")
.FontBold = False
.FontSize = 10

xPos = .PageInsideRight - .PageInsideLeft - .TextWidth("Voucher (" & CStr(nI) & ")")
.AddTextAt "Voucher", xPos, yPos

.FontBold = True
.FontSize = 13
xPos = .PageInsideRight - .PageInsideLeft - .TextWidth("(" & CStr(nI) & ")")
yPos = yPos - 18
.AddTextAt CStr(nI), xPos, yPos
.FontSize = 10
.FontBold = False

sInfos = "<bd 1>ImmoAssist<bd 0> is YOUR Real Estate Software.<nl>"
sInfos = sInfos & "Comprehensive, powerful, and affordable choice in property management software.<nl>"
sInfos = sInfos & "ImmoAssist will simplify and speeds up your daily work, is easy to use.<nl>"
sInfos = sInfos & "ImmoAssist has been designed to be used by owners, property investors, everyone has a personnal computer.<nl>"
sInfos = sInfos & "Use ImmoAssist in your own language, French, English, Dutch, German, Spanish, Italian, ...<nl>"
sInfos = sInfos & "for your daily management of your properties rentals.<nl>"
sInfos = sInfos & "For YOU, owners, companies...<nl><ce><fs 15>Find also free Ads on our site.<nl><nl>"
.ParaText sInfos, .PageInsideLeft, .CurrentY + .TextHeight("A") * 3.2

.DrawPicture App.Path & "\BannerImmoassist.jpg", prSTExternal, "1.8 in", .CurrentY, pictBanner.Width, pictBanner.Height

.ParaText "<ce>Come and see <co 0; 0; 128>http://www.immoassist.com<nl><nl>", .PageInsideLeft, .CurrentY + pictBanner.Height

.LineType = vbDashDotDot
.LineColor = vbBlack
.DrawWidth = 1
.DrawLine .PageInsideLeft, .CurrentY, .PageInsideRight - .PageInsideLeft, .CurrentY, prLBLine

yPos = .CurrentY + .TextHeight("A")

Next

.endDocument

End With

End Sub


Come and visit :
www.immoassist.com
www.ppreview.net
www.vbdiamond.com
www.d2dsources.com
www.mandix.com

Print Preview ActiveX © Mandix Go To Top Of Page
This page was generated in 0.06 seconds. Powered By: Snitz Forums 2000 Version 3.4.02