Click here to Skip to main content
15,925,528 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: Create folder with current date Pin
Dave Kreskowiak17-Oct-06 9:59
mveDave Kreskowiak17-Oct-06 9:59 
GeneralRe: Create folder with current date Pin
jds120717-Oct-06 11:01
jds120717-Oct-06 11:01 
GeneralRe: Create folder with current date [modified] Pin
UltraCoder17-Oct-06 15:26
UltraCoder17-Oct-06 15:26 
GeneralRe: Create folder with current date Pin
Dave Kreskowiak17-Oct-06 17:43
mveDave Kreskowiak17-Oct-06 17:43 
GeneralRe: Create folder with current date Pin
UltraCoder17-Oct-06 20:40
UltraCoder17-Oct-06 20:40 
GeneralRe: Create folder with current date Pin
Dave Kreskowiak18-Oct-06 1:38
mveDave Kreskowiak18-Oct-06 1:38 
GeneralRe: Create folder with current date Pin
Dave Kreskowiak17-Oct-06 17:45
mveDave Kreskowiak17-Oct-06 17:45 
QuestionPls help,Deadline around - Print preview problem(can't preview on second preview page) Pin
nightkid888517-Oct-06 4:48
nightkid888517-Oct-06 4:48 
This is the code, i can't preview the second pages on print preview,i reach the first page last line and the following data should be preview on second page..but the data preview on the 1st page and cover the 1st layer's data,Please help..project deadline around..thanks

If TotalRecord - 1 <> Counts - 1 Then
For i As Integer = 0 To Counts - 1 Step 1
If EOF = True Then
With e.Graphics
.DrawString("SAFEBANK", drawFontTitle, drawBrush, 450.0F, 50.0F, StrFormatCenter)
.DrawString(Now.Date, drawFont, drawBrush, e.MarginBounds.Right - 50, 50.0F, StrFormatCenter)
.DrawString("Tel No.:XXX-XXXXXXXX", drawFontTitle, drawBrush, 450.0F, 80.0F, StrFormatCenter)
.DrawString("Fax No.:XXX-XXXXXXXX", drawFontTitle, drawBrush, 450.0F, 110.0F, StrFormatCenter)
.DrawLine(mypen, 90.0F, 150.0F, 750.0F, 150.0F)
.DrawString("TransID", drawFont, drawBrush, 50.0F, 170.0F, StrFormatLeft)
.DrawString("TransTime", drawFont, drawBrush, 130.0F, 170.0F, StrFormatLeft)
.DrawString("Amount RM", drawFont, drawBrush, 280.0F, 170.0F, StrFormatLeft)
.DrawString("AC number", drawFont, drawBrush, 420.0F, 170.0F, StrFormatLeft)
.DrawString("AC number", drawFont, drawBrush, 540.0F, 170.0F, StrFormatLeft)
.DrawString("Server", drawFont, drawBrush, 680.0F, 170.0F, StrFormatLeft)

yPos = 170.0F + Count * drawFont.GetHeight

.DrawString(TransID(i), drawFont, drawBrush, 50.0F, yPos, StrFormatLeft)
.DrawString(TransTime(i), drawFont, drawBrush, 130.0F, yPos, StrFormatLeft)
.DrawString(Amount(i), drawFont, drawBrush, 280.0F, yPos, StrFormatLeft)
.DrawString(Acc1(i), drawFont, drawBrush, 420.0F, yPos, StrFormatLeft)
.DrawString(Acc2(i), drawFont, drawBrush, 540.0F, yPos, StrFormatLeft)
.DrawString(Server(i), drawFont, drawBrush, 680.0F, yPos, StrFormatLeft)
Count += 1
TotalRecord += 1

EOF = False
End With
Else
yPos = 170 + Count * drawFont.GetHeight
With e.Graphics
.DrawString(TransID(i), drawFont, drawBrush, 50.0F, yPos, StrFormatLeft)
.DrawString(TransTime(i), drawFont, drawBrush, 130.0F, yPos, StrFormatLeft)
.DrawString(Amount(i), drawFont, drawBrush, 280.0F, yPos, StrFormatLeft)
.DrawString(Acc1(i), drawFont, drawBrush, 420.0F, yPos, StrFormatLeft)
.DrawString(Acc2(i), drawFont, drawBrush, 540.0F, yPos, StrFormatLeft)
.DrawString(Server(i), drawFont, drawBrush, 680.0F, yPos, StrFormatLeft)
Count += 1
TotalRecord += 1
End With
End If
If Count = LastRecord Then
e.HasMorePages = False
Count = 0
EOF = True
Else
e.HasMorePages = True
End If
Next
End IfSigh | :sigh: Sigh | :sigh:
From
Daryl
QuestionPlz help me.. Pin
dotnethunk17-Oct-06 4:14
dotnethunk17-Oct-06 4:14 
AnswerRe: Plz help me.. Pin
Christian Graus17-Oct-06 7:10
protectorChristian Graus17-Oct-06 7:10 
QuestionHow to make this kind of menus Pin
winmedia17-Oct-06 2:55
winmedia17-Oct-06 2:55 
AnswerRe: How to make this kind of menus Pin
MCAST7617-Oct-06 5:01
MCAST7617-Oct-06 5:01 
GeneralRe: How to make this kind of menus Pin
winmedia17-Oct-06 23:45
winmedia17-Oct-06 23:45 
QuestionHow to find asp controls on page at client side(run time)? Pin
JayPrakash Kulkarni17-Oct-06 2:36
JayPrakash Kulkarni17-Oct-06 2:36 
AnswerMessage Removed Pin
17-Oct-06 2:51
Costica U17-Oct-06 2:51 
GeneralRe: How to find asp controls on page at client side(run time)? [modified] Pin
JayPrakash Kulkarni17-Oct-06 19:53
JayPrakash Kulkarni17-Oct-06 19:53 
GeneralMessage Removed Pin
18-Oct-06 2:32
Costica U18-Oct-06 2:32 
GeneralRe: How to find asp controls on page at client side(run time)? Pin
JayPrakash Kulkarni18-Oct-06 19:27
JayPrakash Kulkarni18-Oct-06 19:27 
QuestionTCP/IP Question Pin
Bradml17-Oct-06 1:40
Bradml17-Oct-06 1:40 
AnswerRe: TCP/IP Question Pin
Dave Kreskowiak17-Oct-06 9:51
mveDave Kreskowiak17-Oct-06 9:51 
QuestionCatching URL in IE [modified] Pin
quinton.nel17-Oct-06 1:06
quinton.nel17-Oct-06 1:06 
AnswerRe: Catching URL in IE Pin
Dave Kreskowiak17-Oct-06 4:59
mveDave Kreskowiak17-Oct-06 4:59 
Questionvb.net macro (vbscript) Pin
gspowar17-Oct-06 0:15
gspowar17-Oct-06 0:15 
AnswerRe: vb.net macro (vbscript) Pin
Dave Kreskowiak17-Oct-06 4:57
mveDave Kreskowiak17-Oct-06 4:57 
Questionnew line Pin
minniemooo17-Oct-06 0:12
minniemooo17-Oct-06 0:12 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.