Print Preview ActiveX Active Users: 5 / Visits Today: 345
Highest Active Users: 138
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 Voucher in Print Preview
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic: Sample of a diary in PPreview Topic Next Topic: Generic Grid Preview  

Waty Thierry
Forum Admin

Belgium
635 Posts

Posted - 02/06/2004 :  11:57:50  Show Profile  Visit Waty Thierry's Homepage  Reply with Quote
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
Go to Bottom of Page
  Previous Topic: Sample of a diary in PPreview Topic Next Topic: Generic Grid 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.08 seconds. Powered By: Snitz Forums 2000 Version 3.4.02