I have a script that is run in Excel or Access that automatically runs the code I have cut/pasted below. I attempted to cut/paste into an activeX task, but doesn't work. Would anyone be able to convert this to vbscript?
Thank you in advance for your help,
clutch
Attribute VB_Name = "CD-1291"
Option Compare Database
Option Explicit
Public Function CD1291()
On Error GoTo CD1291_Err
Dim Y As String, M1 As String, M2 As String, D1 As String, D2 As String, d As String, L1, L2, sd As Date
d = Application.CurrentProject.Path
If Dir(d & "\CD1291.msl") <> "" Then Kill (d & "\CD1291.msl")
If Dir(d & "\CD1291.bat") <> "" Then Kill (d & "\CD1291.bat")
If Dir(d & "\CD1291.mod") <> "" Then Kill (d & "\CD1291.mod")
If Dir(d & "\CD1291.prj") <> "" Then Kill (d & "\CD1291.prj")
If Dir(d & "\CD1291.RPT") <> "" Then Kill (d & "\CD1291.RPT")
If Dir(d & "\CD1291.TMP") <> "" Then Kill (d & "\CD1291.TMP")
Y = Year(Now() - 1)
M1 = Month(Now() - 1)
If M1 < 10 Then
M1 = "0" & M1
End If
M2 = Month(Now() - 1)
If M2 < 10 Then
M2 = "0" & M2
End If
D1 = Day(Now() - 1)
If D1 < 10 Then
D1 = "0" & D1
End If
D2 = Day(Now() - 1)
If D2 < 10 Then
D2 = "0" & D2
End If
'MsgBox Y & "-" & M1 & "-" & D1
p = Application.CurrentProject.Path
''' MSL
Open p & "\CD1291.msl" For Output As #1
Print #1, "OPENTOPIC SERVERID 'OARS' TOPICNAME '5625' TOPICVERSIONID '" & Y & M1 & D1 & "001001' TOPICITEM 'CD-1291 1853 SYS E=" & M2 & D2 & "0" & Right(Y, 1) + 1 & "' REPORTID 'CD-1291' EXACTTOPICITEM"
Print #1, "EXPORT ASCII FILE '" & p & "\CD1291.TMP' ALL GROUP ''"
Print #1, "CLOSE"
Print #1, "RUN '" & p & "\CD1291.bat'"
Print #1, "EXIT"
Close #1
''' MOD
Open p & "\CD1291.mod" For Output As #1
Print #1, "MFWMOD12"
Print #1, "~Description"
Print #1, "Premier Bankcard, Inc."
Print #1, ""
Print #1, "~Settings"
Print #1, "M/D/Y"
Print #1, "50"
Print #1, "."
Print #1, "0"
Print #1, "1"
Print #1, "1"
Print #1, ","
Print #1, "0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "Y"
Print #1, "~ExtendedSettings"
Print #1, "42"
Print #1, "N"
Print #1, "(Null)"
Print #1, "1"
Print #1, "1"
Print #1, "128128255"
Print #1, "128,32,96"
Print #1, "255,0,255"
Print #1, "160,0,224"
Print #1, "64128128"
Print #1, "255,0,128"
Print #1, "128128128"
Print #1, "85,85,255"
Print #1, "128,0,128"
Print #1, "193,0,193"
Print #1, "255115115"
Print #1, "128,64,255"
Print #1, "0,128,0"
Print #1, "128,64,64"
Print #1, "255,0,0"
Print #1, "255191255"
Print #1, "255255255"
Print #1, "225225225"
Print #1, "151151151"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "12"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "10"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "8"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "~TableField"
Print #1, "Acct #"
Print #1, "16"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "16"
Print #1, "3"
Print #1, "N"
Print #1, "N"
Print #1, "16"
Print #1, "5"
Print #1, "0"
Print #1, "0"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Acct #"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Pymt Date"
Print #1, "10"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "10"
Print #1, "4"
Print #1, "N"
Print #1, "N"
Print #1, "10"
Print #1, "5"
Print #1, "0"
Print #1, "18"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Pymt Date"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Payment"
Print #1, "18"
Print #1, "2"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "19"
Print #1, "5"
Print #1, "N"
Print #1, "N"
Print #1, "19"
Print #1, "5"
Print #1, "0"
Print #1, "30"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Payment"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float Amount"
Print #1, "18"
Print #1, "2"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "16"
Print #1, "6"
Print #1, "N"
Print #1, "N"
Print #1, "16"
Print #1, "5"
Print #1, "0"
Print #1, "53"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float Amount"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Strat ID"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "7"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "70"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Strat ID"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Line"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "8"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "80"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Line"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Actn ID"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "9"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "86"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Actn ID"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Ltr #"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "10"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "96"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Ltr #"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Ltr Data"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "11"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "108"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Ltr Data"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float %"
Print #1, "18"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "5"
Print #1, "12"
Print #1, "N"
Print #1, "N"
Print #1, "5"
Print #1, "5"
Print #1, "0"
Print #1, "119"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float %"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Q Prio"
Print #1, "2"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "2"
Print #1, "13"
Print #1, "N"
Print #1, "N"
Print #1, "2"
Print #1, "5"
Print #1, "2"
Print #1, "18"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Q Prio"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float Cycle"
Print #1, "3"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "3"
Print #1, "14"
Print #1, "N"
Print #1, "N"
Print #1, "3"
Print #1, "5"
Print #1, "2"
Print #1, "30"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float Cycle"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Rpt"
Print #1, "7"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "7"
Print #1, "1"
Print #1, "N"
Print #1, "N"
Print #1, "7"
Print #1, "0"
Print #1, "0"
Print #1, "0"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Rpt"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Date"
Print #1, "8"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "D"
Print #1, "0"
Print #1, "12"
Print #1, "2"
Print #1, "N"
Print #1, "N"
Print #1, "14"
Print #1, "0"
Print #1, "0"
Print #1, "107"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Date"
Print #1, "3"
Print #1, "N"
Print #1, "1"
Print #1, "1"
Print #1, "~Level"
Print #1, "0"
Print #1, ""
Print #1, "1"
Print #1, "CD-1291 1108/ AVAILABLE FUNDS ACCOUNT DATA FIRST PREMIER BANK -FD- 01/09/04 PAGE 1 "
Print #1, "2"
Print #1, "0"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~LevelExtended"
Print #1, "0"
Print #1, "2"
Print #1, "Page Header"
Print #1, "N"
Print #1, "N"
Print #1, "~Level"
Print #1, "5"
Print #1, "???????????"
Print #1, "3"
Print #1, "5149860001000015 2004/01/09 5.00 5.00 0002 0009 0001 0000 0000 100 "
Print #1, " QUEUE PRIO FLOAT CYCL "
Print #1, " 00 011 "
Print #1, "12"
Print #1, "0"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~LevelExtended"
Print #1, "5"
Print #1, "2"
Print #1, "Detail"
Print #1, "N"
Print #1, "N"
Print #1, "~PageSetup"
Print #1, "1"
Print #1, "256"
Print #1, "10"
Print #1, "50"
Print #1, "50"
Print #1, "2"
Print #1, "Y"
Print #1, "Y"
Print #1, "Y"
Print #1, ""
Print #1, "~PageSetupExtended"
Print #1, "1"
Print #1, "Y"
Print #1, "~End"
Close #1
'''PRJ
Open p & "\CD1291.prj" For Output As #1
Print #1, "MFWPRJ01"
Print #1, "[RefreshDDR]"
Print #1, "[InputFile]"
Print #1, p & "\CD1291.RPT"
Print #1, "[ModelFile]"
Print #1, p & "\CD1291.mod"
Print #1, "[ViewTable]"
Print #1, "[SummaryNoChart]"
Print #1, "[Author]"
Print #1, "[Description]"
Print #1, "[ASCII]"
Print #1, "[End]"
Close #1
''' BAT
Open p & "\CD1291.bat" For Output As #1
Print #1, "@.echo off"
Print #1, "copy " & p & "\CD1291.TMP " & p & "\CD1291.RPT"
Print #1, "del " & p & "\CD1291.TMP"
Close #1
'''Execute
Do Until Dir(p & "\CD1291.TMP") <> "" Or Dir(p & "\CD1291.RPT") <> ""
Shell ("C:\Program Files\Mobius\DDR\rdswin.exe " & p & "\CD1291.msl /E")
Pause (30)
Loop
Do Until Dir(p & "\CD1291.TMP") = ""
DoEvents
Loop
Pause (5)
If Dir("C:\CD1291.ASC") <> "" Then Kill ("C:\CD1291.ASC")
Shell ("C:\Program Files\Mobius\DocuAnalyzer\program\analyzer.exe " & p & "\CD1291.prj " & p & "\CD1291.ASC")
Pause (5)
L1 = 1
Do Until L1 = L2
Open p & "\CD1291.ASC" For Random As #1
L1 = LOF(1)
Close #1
Pause (5)
Open p & "\CD1291.ASC" For Random As #1
L2 = LOF(1)
Close #1
Loop
Pause (5)
If Dir(p & "\CD1291.msl") <> "" Then Kill (p & "\CD1291.msl")
If Dir(p & "\CD1291.bat") <> "" Then Kill (p & "\CD1291.bat")
If Dir(p & "\CD1291.mod") <> "" Then Kill (p & "\CD1291.mod")
If Dir(p & "\CD1291.prj") <> "" Then Kill (p & "\CD1291.prj")
If Dir(p & "\CD1291.RPT") <> "" Then Kill (p & "\CD1291.RPT")
If Dir(p & "\CD1291.TMP") <> "" Then Kill (p & "\CD1291.TMP")
End Function
You are going to have some very hard work cut out for you here. There is no
application class in VBScripting. There is no DIR() function. There is no
Kill function. You may want to transfer code to VB.net and then have DTS run
an application.
Andrew C. Madsen
Information Architect
Harley-Davidson Motor Company
"clutch" <clutch@.discussions.microsoft.com> wrote in message
news:974122A0-6D23-4C82-BA82-2FCBAF8D2716@.microsoft.com...
> I have a script that is run in Excel or Access that automatically runs the
code I have cut/pasted below. I attempted to cut/paste into an activeX task,
but doesn't work. Would anyone be able to convert this to vbscript?
> Thank you in advance for your help,
> clutch
> Attribute VB_Name = "CD-1291"
> Option Compare Database
> Option Explicit
> Public Function CD1291()
> On Error GoTo CD1291_Err
> Dim Y As String, M1 As String, M2 As String, D1 As String, D2 As String, d
As String, L1, L2, sd As Date
>
> d = Application.CurrentProject.Path
> If Dir(d & "\CD1291.msl") <> "" Then Kill (d & "\CD1291.msl")
> If Dir(d & "\CD1291.bat") <> "" Then Kill (d & "\CD1291.bat")
> If Dir(d & "\CD1291.mod") <> "" Then Kill (d & "\CD1291.mod")
> If Dir(d & "\CD1291.prj") <> "" Then Kill (d & "\CD1291.prj")
> If Dir(d & "\CD1291.RPT") <> "" Then Kill (d & "\CD1291.RPT")
> If Dir(d & "\CD1291.TMP") <> "" Then Kill (d & "\CD1291.TMP")
> Y = Year(Now() - 1)
> M1 = Month(Now() - 1)
> If M1 < 10 Then
> M1 = "0" & M1
> End If
> M2 = Month(Now() - 1)
> If M2 < 10 Then
> M2 = "0" & M2
> End If
> D1 = Day(Now() - 1)
> If D1 < 10 Then
> D1 = "0" & D1
> End If
> D2 = Day(Now() - 1)
> If D2 < 10 Then
> D2 = "0" & D2
> End If
> 'MsgBox Y & "-" & M1 & "-" & D1
> p = Application.CurrentProject.Path
> ''' MSL
> Open p & "\CD1291.msl" For Output As #1
> Print #1, "OPENTOPIC SERVERID 'OARS' TOPICNAME '5625' TOPICVERSIONID
'" & Y & M1 & D1 & "001001' TOPICITEM 'CD-1291 1853 SYS E=" & M2 & D2 &
"0" & Right(Y, 1) + 1 & "' REPORTID 'CD-1291' EXACTTOPICITEM"
> Print #1, "EXPORT ASCII FILE '" & p & "\CD1291.TMP' ALL GROUP ''"
> Print #1, "CLOSE"
> Print #1, "RUN '" & p & "\CD1291.bat'"
> Print #1, "EXIT"
> Close #1
> ''' MOD
> Open p & "\CD1291.mod" For Output As #1
> Print #1, "MFWMOD12"
> Print #1, "~Description"
> Print #1, "Premier Bankcard, Inc."
> Print #1, ""
> Print #1, "~Settings"
> Print #1, "M/D/Y"
> Print #1, "50"
> Print #1, "."
> Print #1, "0"
> Print #1, "1"
> Print #1, "1"
> Print #1, ","
> Print #1, "0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "Y"
> Print #1, "~ExtendedSettings"
> Print #1, "42"
> Print #1, "N"
> Print #1, "(Null)"
> Print #1, "1"
> Print #1, "1"
> Print #1, "128128255"
> Print #1, "128,32,96"
> Print #1, "255,0,255"
> Print #1, "160,0,224"
> Print #1, "64128128"
> Print #1, "255,0,128"
> Print #1, "128128128"
> Print #1, "85,85,255"
> Print #1, "128,0,128"
> Print #1, "193,0,193"
> Print #1, "255115115"
> Print #1, "128,64,255"
> Print #1, "0,128,0"
> Print #1, "128,64,64"
> Print #1, "255,0,0"
> Print #1, "255191255"
> Print #1, "255255255"
> Print #1, "225225225"
> Print #1, "151151151"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "12"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "10"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "8"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "~TableField"
> Print #1, "Acct #"
> Print #1, "16"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "16"
> Print #1, "3"
> Print #1, "N"
> Print #1, "N"
> Print #1, "16"
> Print #1, "5"
> Print #1, "0"
> Print #1, "0"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Acct #"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Pymt Date"
> Print #1, "10"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "10"
> Print #1, "4"
> Print #1, "N"
> Print #1, "N"
> Print #1, "10"
> Print #1, "5"
> Print #1, "0"
> Print #1, "18"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Pymt Date"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Payment"
> Print #1, "18"
> Print #1, "2"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "19"
> Print #1, "5"
> Print #1, "N"
> Print #1, "N"
> Print #1, "19"
> Print #1, "5"
> Print #1, "0"
> Print #1, "30"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Payment"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float Amount"
> Print #1, "18"
> Print #1, "2"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "16"
> Print #1, "6"
> Print #1, "N"
> Print #1, "N"
> Print #1, "16"
> Print #1, "5"
> Print #1, "0"
> Print #1, "53"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float Amount"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Strat ID"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "7"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "70"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Strat ID"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Line"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "8"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "80"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Line"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Actn ID"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "9"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "86"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Actn ID"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Ltr #"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "10"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "96"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Ltr #"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Ltr Data"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "11"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "108"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Ltr Data"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float %"
> Print #1, "18"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "5"
> Print #1, "12"
> Print #1, "N"
> Print #1, "N"
> Print #1, "5"
> Print #1, "5"
> Print #1, "0"
> Print #1, "119"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float %"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Q Prio"
> Print #1, "2"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "2"
> Print #1, "13"
> Print #1, "N"
> Print #1, "N"
> Print #1, "2"
> Print #1, "5"
> Print #1, "2"
> Print #1, "18"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Q Prio"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float Cycle"
> Print #1, "3"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "3"
> Print #1, "14"
> Print #1, "N"
> Print #1, "N"
> Print #1, "3"
> Print #1, "5"
> Print #1, "2"
> Print #1, "30"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float Cycle"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Rpt"
> Print #1, "7"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "7"
> Print #1, "1"
> Print #1, "N"
> Print #1, "N"
> Print #1, "7"
> Print #1, "0"
> Print #1, "0"
> Print #1, "0"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Rpt"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Date"
> Print #1, "8"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "D"
> Print #1, "0"
> Print #1, "12"
> Print #1, "2"
> Print #1, "N"
> Print #1, "N"
> Print #1, "14"
> Print #1, "0"
> Print #1, "0"
> Print #1, "107"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Date"
> Print #1, "3"
> Print #1, "N"
> Print #1, "1"
> Print #1, "1"
> Print #1, "~Level"
> Print #1, "0"
> Print #1, ""
> Print #1, "1"
> Print #1, "CD-1291 1108/ AVAILABLE FUNDS ACCOUNT DATA
FIRST PREMIER BANK -FD- 01/09/04 PAGE 1
"
> Print #1, "2"
> Print #1, "0"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~LevelExtended"
> Print #1, "0"
> Print #1, "2"
> Print #1, "Page Header"
> Print #1, "N"
> Print #1, "N"
> Print #1, "~Level"
> Print #1, "5"
> Print #1, ""
> Print #1, "3"
> Print #1, "5149860001000015 2004/01/09 5.00
5.00 0002 0009 0001 0000 0000 100
"
> Print #1, " QUEUE PRIO FLOAT CYCL
"
> Print #1, " 00 011
"
> Print #1, "12"
> Print #1, "0"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~LevelExtended"
> Print #1, "5"
> Print #1, "2"
> Print #1, "Detail"
> Print #1, "N"
> Print #1, "N"
> Print #1, "~PageSetup"
> Print #1, "1"
> Print #1, "256"
> Print #1, "10"
> Print #1, "50"
> Print #1, "50"
> Print #1, "2"
> Print #1, "Y"
> Print #1, "Y"
> Print #1, "Y"
> Print #1, ""
> Print #1, "~PageSetupExtended"
> Print #1, "1"
> Print #1, "Y"
> Print #1, "~End"
> Close #1
>
> '''PRJ
> Open p & "\CD1291.prj" For Output As #1
> Print #1, "MFWPRJ01"
> Print #1, "[RefreshDDR]"
> Print #1, "[InputFile]"
> Print #1, p & "\CD1291.RPT"
> Print #1, "[ModelFile]"
> Print #1, p & "\CD1291.mod"
> Print #1, "[ViewTable]"
> Print #1, "[SummaryNoChart]"
> Print #1, "[Author]"
> Print #1, "[Description]"
> Print #1, "[ASCII]"
> Print #1, "[End]"
> Close #1
>
> ''' BAT
> Open p & "\CD1291.bat" For Output As #1
> Print #1, "@.echo off"
> Print #1, "copy " & p & "\CD1291.TMP " & p & "\CD1291.RPT"
> Print #1, "del " & p & "\CD1291.TMP"
> Close #1
> '''Execute
> Do Until Dir(p & "\CD1291.TMP") <> "" Or Dir(p & "\CD1291.RPT") <> ""
> Shell ("C:\Program Files\Mobius\DDR\rdswin.exe " & p & "\CD1291.msl
/E")
> Pause (30)
> Loop
> Do Until Dir(p & "\CD1291.TMP") = ""
> DoEvents
> Loop
> Pause (5)
> If Dir("C:\CD1291.ASC") <> "" Then Kill ("C:\CD1291.ASC")
> Shell ("C:\Program Files\Mobius\DocuAnalyzer\program\analyzer.exe " & p &
"\CD1291.prj " & p & "\CD1291.ASC")
> Pause (5)
> L1 = 1
> Do Until L1 = L2
> Open p & "\CD1291.ASC" For Random As #1
> L1 = LOF(1)
> Close #1
> Pause (5)
> Open p & "\CD1291.ASC" For Random As #1
> L2 = LOF(1)
> Close #1
> Loop
> Pause (5)
>
> If Dir(p & "\CD1291.msl") <> "" Then Kill (p & "\CD1291.msl")
> If Dir(p & "\CD1291.bat") <> "" Then Kill (p & "\CD1291.bat")
> If Dir(p & "\CD1291.mod") <> "" Then Kill (p & "\CD1291.mod")
> If Dir(p & "\CD1291.prj") <> "" Then Kill (p & "\CD1291.prj")
> If Dir(p & "\CD1291.RPT") <> "" Then Kill (p & "\CD1291.RPT")
> If Dir(p & "\CD1291.TMP") <> "" Then Kill (p & "\CD1291.TMP")
>
> End Function
>
>
Showing posts with label automatically. Show all posts
Showing posts with label automatically. Show all posts
Sunday, March 25, 2012
ActiveX Script Task - Help!
I have a script that is run in Excel or Access that automatically runs the c
ode I have cut/pasted below. I attempted to cut/paste into an activeX task,
but doesn't work. Would anyone be able to convert this to vbscript?
Thank you in advance for your help,
clutch
Attribute VB_Name = "CD-1291"
Option Compare Database
Option Explicit
Public Function CD1291()
On Error GoTo CD1291_Err
Dim Y As String, M1 As String, M2 As String, D1 As String, D2 As String, d A
s String, L1, L2, sd As Date
d = Application.CurrentProject.Path
If Dir(d & "\CD1291.msl") <> "" Then Kill (d & "\CD1291.msl")
If Dir(d & "\CD1291.bat") <> "" Then Kill (d & "\CD1291.bat")
If Dir(d & "\CD1291.mod") <> "" Then Kill (d & "\CD1291.mod")
If Dir(d & "\CD1291.prj") <> "" Then Kill (d & "\CD1291.prj")
If Dir(d & "\CD1291.RPT") <> "" Then Kill (d & "\CD1291.RPT")
If Dir(d & "\CD1291.TMP") <> "" Then Kill (d & "\CD1291.TMP")
Y = Year(Now() - 1)
M1 = Month(Now() - 1)
If M1 < 10 Then
M1 = "0" & M1
End If
M2 = Month(Now() - 1)
If M2 < 10 Then
M2 = "0" & M2
End If
D1 = Day(Now() - 1)
If D1 < 10 Then
D1 = "0" & D1
End If
D2 = Day(Now() - 1)
If D2 < 10 Then
D2 = "0" & D2
End If
'MsgBox Y & "-" & M1 & "-" & D1
p = Application.CurrentProject.Path
''' MSL
Open p & "\CD1291.msl" For Output As #1
Print #1, "OPENTOPIC SERVERID 'OARS' TOPICNAME '5625' TOPICVERSIONID '" & Y
& M1 & D1 & "001001' TOPICITEM 'CD-1291 1853 SYS E=" & M2 & D2 & "0" &
Right(Y, 1) + 1 & "' REPORTID 'CD-1291' EXACTTOPICITEM"
Print #1, "EXPORT ASCII FILE '" & p & "\CD1291.TMP' ALL GROUP ''"
Print #1, "CLOSE"
Print #1, "RUN '" & p & "\CD1291.bat'"
Print #1, "EXIT"
Close #1
''' MOD
Open p & "\CD1291.mod" For Output As #1
Print #1, "MFWMOD12"
Print #1, "~Description"
Print #1, "Premier Bankcard, Inc."
Print #1, ""
Print #1, "~Settings"
Print #1, "M/D/Y"
Print #1, "50"
Print #1, "."
Print #1, "0"
Print #1, "1"
Print #1, "1"
Print #1, ","
Print #1, "0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "Y"
Print #1, "~ExtendedSettings"
Print #1, "42"
Print #1, "N"
Print #1, "(Null)"
Print #1, "1"
Print #1, "1"
Print #1, "128128255"
Print #1, "128,32,96"
Print #1, "255,0,255"
Print #1, "160,0,224"
Print #1, "64128128"
Print #1, "255,0,128"
Print #1, "128128128"
Print #1, "85,85,255"
Print #1, "128,0,128"
Print #1, "193,0,193"
Print #1, "255115115"
Print #1, "128,64,255"
Print #1, "0,128,0"
Print #1, "128,64,64"
Print #1, "255,0,0"
Print #1, "255191255"
Print #1, "255255255"
Print #1, "225225225"
Print #1, "151151151"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "12"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "10"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "8"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "~TableField"
Print #1, "Acct #"
Print #1, "16"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "16"
Print #1, "3"
Print #1, "N"
Print #1, "N"
Print #1, "16"
Print #1, "5"
Print #1, "0"
Print #1, "0"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Acct #"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Pymt Date"
Print #1, "10"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "10"
Print #1, "4"
Print #1, "N"
Print #1, "N"
Print #1, "10"
Print #1, "5"
Print #1, "0"
Print #1, "18"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Pymt Date"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Payment"
Print #1, "18"
Print #1, "2"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "19"
Print #1, "5"
Print #1, "N"
Print #1, "N"
Print #1, "19"
Print #1, "5"
Print #1, "0"
Print #1, "30"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Payment"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float Amount"
Print #1, "18"
Print #1, "2"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "16"
Print #1, "6"
Print #1, "N"
Print #1, "N"
Print #1, "16"
Print #1, "5"
Print #1, "0"
Print #1, "53"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float Amount"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Strat ID"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "7"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "70"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Strat ID"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Line"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "8"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "80"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Line"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Actn ID"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "9"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "86"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Actn ID"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Ltr #"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "10"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "96"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Ltr #"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Ltr Data"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "11"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "108"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Ltr Data"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float %"
Print #1, "18"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "5"
Print #1, "12"
Print #1, "N"
Print #1, "N"
Print #1, "5"
Print #1, "5"
Print #1, "0"
Print #1, "119"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float %"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Q Prio"
Print #1, "2"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "2"
Print #1, "13"
Print #1, "N"
Print #1, "N"
Print #1, "2"
Print #1, "5"
Print #1, "2"
Print #1, "18"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Q Prio"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float Cycle"
Print #1, "3"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "3"
Print #1, "14"
Print #1, "N"
Print #1, "N"
Print #1, "3"
Print #1, "5"
Print #1, "2"
Print #1, "30"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float Cycle"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Rpt"
Print #1, "7"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "7"
Print #1, "1"
Print #1, "N"
Print #1, "N"
Print #1, "7"
Print #1, "0"
Print #1, "0"
Print #1, "0"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Rpt"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Date"
Print #1, "8"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "D"
Print #1, "0"
Print #1, "12"
Print #1, "2"
Print #1, "N"
Print #1, "N"
Print #1, "14"
Print #1, "0"
Print #1, "0"
Print #1, "107"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Date"
Print #1, "3"
Print #1, "N"
Print #1, "1"
Print #1, "1"
Print #1, "~Level"
Print #1, "0"
Print #1, ""
Print #1, "1"
Print #1, "CD-1291 1108/ AVAILABLE FUNDS ACCOUNT DATA
FIRST PREMIER BANK -FD- 01/09/04 PAGE 1
"
Print #1, "2"
Print #1, "0"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~LevelExtended"
Print #1, "0"
Print #1, "2"
Print #1, "Page Header"
Print #1, "N"
Print #1, "N"
Print #1, "~Level"
Print #1, "5"
Print #1, "???????????"
Print #1, "3"
Print #1, "5149860001000015 2004/01/09 5.00 5
.00 0002 0009 0001 0000 0000 100
"
Print #1, " QUEUE PRIO FLOAT CYCL
"
Print #1, " 00 011
"
Print #1, "12"
Print #1, "0"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~LevelExtended"
Print #1, "5"
Print #1, "2"
Print #1, "Detail"
Print #1, "N"
Print #1, "N"
Print #1, "~PageSetup"
Print #1, "1"
Print #1, "256"
Print #1, "10"
Print #1, "50"
Print #1, "50"
Print #1, "2"
Print #1, "Y"
Print #1, "Y"
Print #1, "Y"
Print #1, ""
Print #1, "~PageSetupExtended"
Print #1, "1"
Print #1, "Y"
Print #1, "~End"
Close #1
'''PRJ
Open p & "\CD1291.prj" For Output As #1
Print #1, "MFWPRJ01"
Print #1, "[RefreshDDR]"
Print #1, "[InputFile]"
Print #1, p & "\CD1291.RPT"
Print #1, "[ModelFile]"
Print #1, p & "\CD1291.mod"
Print #1, "[ViewTable]"
Print #1, "[SummaryNoChart]"
Print #1, "[Author]"
Print #1, "[Description]"
Print #1, "[ASCII]"
Print #1, "[End]"
Close #1
''' BAT
Open p & "\CD1291.bat" For Output As #1
Print #1, "@.echo off"
Print #1, "copy " & p & "\CD1291.TMP " & p & "\CD1291.RPT"
Print #1, "del " & p & "\CD1291.TMP"
Close #1
'''Execute
Do Until Dir(p & "\CD1291.TMP") <> "" Or Dir(p & "\CD1291.RPT") <> ""
Shell ("C:\Program Files\Mobius\DDR\rdswin.exe " & p & "\CD1291.msl /E")
Pause (30)
Loop
Do Until Dir(p & "\CD1291.TMP") = ""
DoEvents
Loop
Pause (5)
If Dir("C:\CD1291.ASC") <> "" Then Kill ("C:\CD1291.ASC")
Shell ("C:\Program Files\Mobius\DocuAnalyzer\program\analyz
er.exe " & p & "\
CD1291.prj " & p & "\CD1291.ASC")
Pause (5)
L1 = 1
Do Until L1 = L2
Open p & "\CD1291.ASC" For Random As #1
L1 = LOF(1)
Close #1
Pause (5)
Open p & "\CD1291.ASC" For Random As #1
L2 = LOF(1)
Close #1
Loop
Pause (5)
If Dir(p & "\CD1291.msl") <> "" Then Kill (p & "\CD1291.msl")
If Dir(p & "\CD1291.bat") <> "" Then Kill (p & "\CD1291.bat")
If Dir(p & "\CD1291.mod") <> "" Then Kill (p & "\CD1291.mod")
If Dir(p & "\CD1291.prj") <> "" Then Kill (p & "\CD1291.prj")
If Dir(p & "\CD1291.RPT") <> "" Then Kill (p & "\CD1291.RPT")
If Dir(p & "\CD1291.TMP") <> "" Then Kill (p & "\CD1291.TMP")
End FunctionYou are going to have some very hard work cut out for you here. There is no
application class in VBScripting. There is no DIR() function. There is no
Kill function. You may want to transfer code to VB.net and then have DTS run
an application.
Andrew C. Madsen
Information Architect
Harley-Davidson Motor Company
"clutch" <clutch@.discussions.microsoft.com> wrote in message
news:974122A0-6D23-4C82-BA82-2FCBAF8D2716@.microsoft.com...
> I have a script that is run in Excel or Access that automatically runs the
code I have cut/pasted below. I attempted to cut/paste into an activeX task,
but doesn't work. Would anyone be able to convert this to vbscript?
> Thank you in advance for your help,
> clutch
> Attribute VB_Name = "CD-1291"
> Option Compare Database
> Option Explicit
> Public Function CD1291()
> On Error GoTo CD1291_Err
> Dim Y As String, M1 As String, M2 As String, D1 As String, D2 As String, d
As String, L1, L2, sd As Date
>
> d = Application.CurrentProject.Path
> If Dir(d & "\CD1291.msl") <> "" Then Kill (d & "\CD1291.msl")
> If Dir(d & "\CD1291.bat") <> "" Then Kill (d & "\CD1291.bat")
> If Dir(d & "\CD1291.mod") <> "" Then Kill (d & "\CD1291.mod")
> If Dir(d & "\CD1291.prj") <> "" Then Kill (d & "\CD1291.prj")
> If Dir(d & "\CD1291.RPT") <> "" Then Kill (d & "\CD1291.RPT")
> If Dir(d & "\CD1291.TMP") <> "" Then Kill (d & "\CD1291.TMP")
> Y = Year(Now() - 1)
> M1 = Month(Now() - 1)
> If M1 < 10 Then
> M1 = "0" & M1
> End If
> M2 = Month(Now() - 1)
> If M2 < 10 Then
> M2 = "0" & M2
> End If
> D1 = Day(Now() - 1)
> If D1 < 10 Then
> D1 = "0" & D1
> End If
> D2 = Day(Now() - 1)
> If D2 < 10 Then
> D2 = "0" & D2
> End If
> 'MsgBox Y & "-" & M1 & "-" & D1
> p = Application.CurrentProject.Path
> ''' MSL
> Open p & "\CD1291.msl" For Output As #1
> Print #1, "OPENTOPIC SERVERID 'OARS' TOPICNAME '5625' TOPICVERSIONID
'" & Y & M1 & D1 & "001001' TOPICITEM 'CD-1291 1853 SYS E=" & M2 & D2 &
"0" & Right(Y, 1) + 1 & "' REPORTID 'CD-1291' EXACTTOPICITEM"
> Print #1, "EXPORT ASCII FILE '" & p & "\CD1291.TMP' ALL GROUP ''"
> Print #1, "CLOSE"
> Print #1, "RUN '" & p & "\CD1291.bat'"
> Print #1, "EXIT"
> Close #1
> ''' MOD
> Open p & "\CD1291.mod" For Output As #1
> Print #1, "MFWMOD12"
> Print #1, "~Description"
> Print #1, "Premier Bankcard, Inc."
> Print #1, ""
> Print #1, "~Settings"
> Print #1, "M/D/Y"
> Print #1, "50"
> Print #1, "."
> Print #1, "0"
> Print #1, "1"
> Print #1, "1"
> Print #1, ","
> Print #1, "0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "Y"
> Print #1, "~ExtendedSettings"
> Print #1, "42"
> Print #1, "N"
> Print #1, "(Null)"
> Print #1, "1"
> Print #1, "1"
> Print #1, "128128255"
> Print #1, "128,32,96"
> Print #1, "255,0,255"
> Print #1, "160,0,224"
> Print #1, "64128128"
> Print #1, "255,0,128"
> Print #1, "128128128"
> Print #1, "85,85,255"
> Print #1, "128,0,128"
> Print #1, "193,0,193"
> Print #1, "255115115"
> Print #1, "128,64,255"
> Print #1, "0,128,0"
> Print #1, "128,64,64"
> Print #1, "255,0,0"
> Print #1, "255191255"
> Print #1, "255255255"
> Print #1, "225225225"
> Print #1, "151151151"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "12"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "10"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "8"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "~TableField"
> Print #1, "Acct #"
> Print #1, "16"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "16"
> Print #1, "3"
> Print #1, "N"
> Print #1, "N"
> Print #1, "16"
> Print #1, "5"
> Print #1, "0"
> Print #1, "0"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Acct #"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Pymt Date"
> Print #1, "10"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "10"
> Print #1, "4"
> Print #1, "N"
> Print #1, "N"
> Print #1, "10"
> Print #1, "5"
> Print #1, "0"
> Print #1, "18"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Pymt Date"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Payment"
> Print #1, "18"
> Print #1, "2"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "19"
> Print #1, "5"
> Print #1, "N"
> Print #1, "N"
> Print #1, "19"
> Print #1, "5"
> Print #1, "0"
> Print #1, "30"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Payment"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float Amount"
> Print #1, "18"
> Print #1, "2"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "16"
> Print #1, "6"
> Print #1, "N"
> Print #1, "N"
> Print #1, "16"
> Print #1, "5"
> Print #1, "0"
> Print #1, "53"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float Amount"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Strat ID"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "7"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "70"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Strat ID"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Line"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "8"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "80"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Line"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Actn ID"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "9"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "86"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Actn ID"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Ltr #"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "10"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "96"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Ltr #"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Ltr Data"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "11"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "108"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Ltr Data"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float %"
> Print #1, "18"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "5"
> Print #1, "12"
> Print #1, "N"
> Print #1, "N"
> Print #1, "5"
> Print #1, "5"
> Print #1, "0"
> Print #1, "119"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float %"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Q Prio"
> Print #1, "2"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "2"
> Print #1, "13"
> Print #1, "N"
> Print #1, "N"
> Print #1, "2"
> Print #1, "5"
> Print #1, "2"
> Print #1, "18"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Q Prio"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float Cycle"
> Print #1, "3"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "3"
> Print #1, "14"
> Print #1, "N"
> Print #1, "N"
> Print #1, "3"
> Print #1, "5"
> Print #1, "2"
> Print #1, "30"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float Cycle"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Rpt"
> Print #1, "7"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "7"
> Print #1, "1"
> Print #1, "N"
> Print #1, "N"
> Print #1, "7"
> Print #1, "0"
> Print #1, "0"
> Print #1, "0"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Rpt"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Date"
> Print #1, "8"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "D"
> Print #1, "0"
> Print #1, "12"
> Print #1, "2"
> Print #1, "N"
> Print #1, "N"
> Print #1, "14"
> Print #1, "0"
> Print #1, "0"
> Print #1, "107"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Date"
> Print #1, "3"
> Print #1, "N"
> Print #1, "1"
> Print #1, "1"
> Print #1, "~Level"
> Print #1, "0"
> Print #1, ""
> Print #1, "1"
> Print #1, "CD-1291 1108/ AVAILABLE FUNDS ACCOUNT DATA
FIRST PREMIER BANK -FD- 01/09/04 PAGE 1
"
> Print #1, "2"
> Print #1, "0"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~LevelExtended"
> Print #1, "0"
> Print #1, "2"
> Print #1, "Page Header"
> Print #1, "N"
> Print #1, "N"
> Print #1, "~Level"
> Print #1, "5"
> Print #1, ""
> Print #1, "3"
> Print #1, "5149860001000015 2004/01/09 5.00
5.00 0002 0009 0001 0000 0000 100
"
> Print #1, " QUEUE PRIO FLOAT CYCL
"
> Print #1, " 00 011
"
> Print #1, "12"
> Print #1, "0"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~LevelExtended"
> Print #1, "5"
> Print #1, "2"
> Print #1, "Detail"
> Print #1, "N"
> Print #1, "N"
> Print #1, "~PageSetup"
> Print #1, "1"
> Print #1, "256"
> Print #1, "10"
> Print #1, "50"
> Print #1, "50"
> Print #1, "2"
> Print #1, "Y"
> Print #1, "Y"
> Print #1, "Y"
> Print #1, ""
> Print #1, "~PageSetupExtended"
> Print #1, "1"
> Print #1, "Y"
> Print #1, "~End"
> Close #1
>
> '''PRJ
> Open p & "\CD1291.prj" For Output As #1
> Print #1, "MFWPRJ01"
> Print #1, "[RefreshDDR]"
> Print #1, "[InputFile]"
> Print #1, p & "\CD1291.RPT"
> Print #1, "[ModelFile]"
> Print #1, p & "\CD1291.mod"
> Print #1, "[ViewTable]"
> Print #1, "[SummaryNoChart]"
> Print #1, "[Author]"
> Print #1, "[Description]"
> Print #1, "[ASCII]"
> Print #1, "[End]"
> Close #1
>
> ''' BAT
> Open p & "\CD1291.bat" For Output As #1
> Print #1, "@.echo off"
> Print #1, "copy " & p & "\CD1291.TMP " & p & "\CD1291.RPT"
> Print #1, "del " & p & "\CD1291.TMP"
> Close #1
> '''Execute
> Do Until Dir(p & "\CD1291.TMP") <> "" Or Dir(p & "\CD1291.RPT") <> ""
> Shell ("C:\Program Files\Mobius\DDR\rdswin.exe " & p & "\CD1291.msl
/E")
> Pause (30)
> Loop
> Do Until Dir(p & "\CD1291.TMP") = ""
> DoEvents
> Loop
> Pause (5)
> If Dir("C:\CD1291.ASC") <> "" Then Kill ("C:\CD1291.ASC")
> Shell ("C:\Program Files\Mobius\DocuAnalyzer\program\analyz
er.exe " & p &
"\CD1291.prj " & p & "\CD1291.ASC")
> Pause (5)
> L1 = 1
> Do Until L1 = L2
> Open p & "\CD1291.ASC" For Random As #1
> L1 = LOF(1)
> Close #1
> Pause (5)
> Open p & "\CD1291.ASC" For Random As #1
> L2 = LOF(1)
> Close #1
> Loop
> Pause (5)
>
> If Dir(p & "\CD1291.msl") <> "" Then Kill (p & "\CD1291.msl")
> If Dir(p & "\CD1291.bat") <> "" Then Kill (p & "\CD1291.bat")
> If Dir(p & "\CD1291.mod") <> "" Then Kill (p & "\CD1291.mod")
> If Dir(p & "\CD1291.prj") <> "" Then Kill (p & "\CD1291.prj")
> If Dir(p & "\CD1291.RPT") <> "" Then Kill (p & "\CD1291.RPT")
> If Dir(p & "\CD1291.TMP") <> "" Then Kill (p & "\CD1291.TMP")
>
> End Function
>
>
ode I have cut/pasted below. I attempted to cut/paste into an activeX task,
but doesn't work. Would anyone be able to convert this to vbscript?
Thank you in advance for your help,
clutch
Attribute VB_Name = "CD-1291"
Option Compare Database
Option Explicit
Public Function CD1291()
On Error GoTo CD1291_Err
Dim Y As String, M1 As String, M2 As String, D1 As String, D2 As String, d A
s String, L1, L2, sd As Date
d = Application.CurrentProject.Path
If Dir(d & "\CD1291.msl") <> "" Then Kill (d & "\CD1291.msl")
If Dir(d & "\CD1291.bat") <> "" Then Kill (d & "\CD1291.bat")
If Dir(d & "\CD1291.mod") <> "" Then Kill (d & "\CD1291.mod")
If Dir(d & "\CD1291.prj") <> "" Then Kill (d & "\CD1291.prj")
If Dir(d & "\CD1291.RPT") <> "" Then Kill (d & "\CD1291.RPT")
If Dir(d & "\CD1291.TMP") <> "" Then Kill (d & "\CD1291.TMP")
Y = Year(Now() - 1)
M1 = Month(Now() - 1)
If M1 < 10 Then
M1 = "0" & M1
End If
M2 = Month(Now() - 1)
If M2 < 10 Then
M2 = "0" & M2
End If
D1 = Day(Now() - 1)
If D1 < 10 Then
D1 = "0" & D1
End If
D2 = Day(Now() - 1)
If D2 < 10 Then
D2 = "0" & D2
End If
'MsgBox Y & "-" & M1 & "-" & D1
p = Application.CurrentProject.Path
''' MSL
Open p & "\CD1291.msl" For Output As #1
Print #1, "OPENTOPIC SERVERID 'OARS' TOPICNAME '5625' TOPICVERSIONID '" & Y
& M1 & D1 & "001001' TOPICITEM 'CD-1291 1853 SYS E=" & M2 & D2 & "0" &
Right(Y, 1) + 1 & "' REPORTID 'CD-1291' EXACTTOPICITEM"
Print #1, "EXPORT ASCII FILE '" & p & "\CD1291.TMP' ALL GROUP ''"
Print #1, "CLOSE"
Print #1, "RUN '" & p & "\CD1291.bat'"
Print #1, "EXIT"
Close #1
''' MOD
Open p & "\CD1291.mod" For Output As #1
Print #1, "MFWMOD12"
Print #1, "~Description"
Print #1, "Premier Bankcard, Inc."
Print #1, ""
Print #1, "~Settings"
Print #1, "M/D/Y"
Print #1, "50"
Print #1, "."
Print #1, "0"
Print #1, "1"
Print #1, "1"
Print #1, ","
Print #1, "0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "Y"
Print #1, "~ExtendedSettings"
Print #1, "42"
Print #1, "N"
Print #1, "(Null)"
Print #1, "1"
Print #1, "1"
Print #1, "128128255"
Print #1, "128,32,96"
Print #1, "255,0,255"
Print #1, "160,0,224"
Print #1, "64128128"
Print #1, "255,0,128"
Print #1, "128128128"
Print #1, "85,85,255"
Print #1, "128,0,128"
Print #1, "193,0,193"
Print #1, "255115115"
Print #1, "128,64,255"
Print #1, "0,128,0"
Print #1, "128,64,64"
Print #1, "255,0,0"
Print #1, "255191255"
Print #1, "255255255"
Print #1, "225225225"
Print #1, "151151151"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "12"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "10"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "N"
Print #1, "N"
Print #1, "8"
Print #1, "Verdana"
Print #1, "0,0,0"
Print #1, "N"
Print #1, "~TableField"
Print #1, "Acct #"
Print #1, "16"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "16"
Print #1, "3"
Print #1, "N"
Print #1, "N"
Print #1, "16"
Print #1, "5"
Print #1, "0"
Print #1, "0"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Acct #"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Pymt Date"
Print #1, "10"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "10"
Print #1, "4"
Print #1, "N"
Print #1, "N"
Print #1, "10"
Print #1, "5"
Print #1, "0"
Print #1, "18"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Pymt Date"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Payment"
Print #1, "18"
Print #1, "2"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "19"
Print #1, "5"
Print #1, "N"
Print #1, "N"
Print #1, "19"
Print #1, "5"
Print #1, "0"
Print #1, "30"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Payment"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float Amount"
Print #1, "18"
Print #1, "2"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "16"
Print #1, "6"
Print #1, "N"
Print #1, "N"
Print #1, "16"
Print #1, "5"
Print #1, "0"
Print #1, "53"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float Amount"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Strat ID"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "7"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "70"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Strat ID"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Line"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "8"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "80"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Line"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Actn ID"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "9"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "86"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Actn ID"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Ltr #"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "10"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "96"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Ltr #"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Ltr Data"
Print #1, "4"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "4"
Print #1, "11"
Print #1, "N"
Print #1, "N"
Print #1, "4"
Print #1, "5"
Print #1, "0"
Print #1, "108"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Ltr Data"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float %"
Print #1, "18"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "N"
Print #1, "0"
Print #1, "5"
Print #1, "12"
Print #1, "N"
Print #1, "N"
Print #1, "5"
Print #1, "5"
Print #1, "0"
Print #1, "119"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float %"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Q Prio"
Print #1, "2"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "2"
Print #1, "13"
Print #1, "N"
Print #1, "N"
Print #1, "2"
Print #1, "5"
Print #1, "2"
Print #1, "18"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Q Prio"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Float Cycle"
Print #1, "3"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "3"
Print #1, "14"
Print #1, "N"
Print #1, "N"
Print #1, "3"
Print #1, "5"
Print #1, "2"
Print #1, "30"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Float Cycle"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Rpt"
Print #1, "7"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "C"
Print #1, "0"
Print #1, "7"
Print #1, "1"
Print #1, "N"
Print #1, "N"
Print #1, "7"
Print #1, "0"
Print #1, "0"
Print #1, "0"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Rpt"
Print #1, "3"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~TableField"
Print #1, "Date"
Print #1, "8"
Print #1, "0"
Print #1, "0"
Print #1, "1"
Print #1, "D"
Print #1, "0"
Print #1, "12"
Print #1, "2"
Print #1, "N"
Print #1, "N"
Print #1, "14"
Print #1, "0"
Print #1, "0"
Print #1, "107"
Print #1, "N"
Print #1, "~TableFieldExtended"
Print #1, "Date"
Print #1, "3"
Print #1, "N"
Print #1, "1"
Print #1, "1"
Print #1, "~Level"
Print #1, "0"
Print #1, ""
Print #1, "1"
Print #1, "CD-1291 1108/ AVAILABLE FUNDS ACCOUNT DATA
FIRST PREMIER BANK -FD- 01/09/04 PAGE 1
"
Print #1, "2"
Print #1, "0"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~LevelExtended"
Print #1, "0"
Print #1, "2"
Print #1, "Page Header"
Print #1, "N"
Print #1, "N"
Print #1, "~Level"
Print #1, "5"
Print #1, "???????????"
Print #1, "3"
Print #1, "5149860001000015 2004/01/09 5.00 5
.00 0002 0009 0001 0000 0000 100
"
Print #1, " QUEUE PRIO FLOAT CYCL
"
Print #1, " 00 011
"
Print #1, "12"
Print #1, "0"
Print #1, "N"
Print #1, "0"
Print #1, "0"
Print #1, "~LevelExtended"
Print #1, "5"
Print #1, "2"
Print #1, "Detail"
Print #1, "N"
Print #1, "N"
Print #1, "~PageSetup"
Print #1, "1"
Print #1, "256"
Print #1, "10"
Print #1, "50"
Print #1, "50"
Print #1, "2"
Print #1, "Y"
Print #1, "Y"
Print #1, "Y"
Print #1, ""
Print #1, "~PageSetupExtended"
Print #1, "1"
Print #1, "Y"
Print #1, "~End"
Close #1
'''PRJ
Open p & "\CD1291.prj" For Output As #1
Print #1, "MFWPRJ01"
Print #1, "[RefreshDDR]"
Print #1, "[InputFile]"
Print #1, p & "\CD1291.RPT"
Print #1, "[ModelFile]"
Print #1, p & "\CD1291.mod"
Print #1, "[ViewTable]"
Print #1, "[SummaryNoChart]"
Print #1, "[Author]"
Print #1, "[Description]"
Print #1, "[ASCII]"
Print #1, "[End]"
Close #1
''' BAT
Open p & "\CD1291.bat" For Output As #1
Print #1, "@.echo off"
Print #1, "copy " & p & "\CD1291.TMP " & p & "\CD1291.RPT"
Print #1, "del " & p & "\CD1291.TMP"
Close #1
'''Execute
Do Until Dir(p & "\CD1291.TMP") <> "" Or Dir(p & "\CD1291.RPT") <> ""
Shell ("C:\Program Files\Mobius\DDR\rdswin.exe " & p & "\CD1291.msl /E")
Pause (30)
Loop
Do Until Dir(p & "\CD1291.TMP") = ""
DoEvents
Loop
Pause (5)
If Dir("C:\CD1291.ASC") <> "" Then Kill ("C:\CD1291.ASC")
Shell ("C:\Program Files\Mobius\DocuAnalyzer\program\analyz
er.exe " & p & "\
CD1291.prj " & p & "\CD1291.ASC")
Pause (5)
L1 = 1
Do Until L1 = L2
Open p & "\CD1291.ASC" For Random As #1
L1 = LOF(1)
Close #1
Pause (5)
Open p & "\CD1291.ASC" For Random As #1
L2 = LOF(1)
Close #1
Loop
Pause (5)
If Dir(p & "\CD1291.msl") <> "" Then Kill (p & "\CD1291.msl")
If Dir(p & "\CD1291.bat") <> "" Then Kill (p & "\CD1291.bat")
If Dir(p & "\CD1291.mod") <> "" Then Kill (p & "\CD1291.mod")
If Dir(p & "\CD1291.prj") <> "" Then Kill (p & "\CD1291.prj")
If Dir(p & "\CD1291.RPT") <> "" Then Kill (p & "\CD1291.RPT")
If Dir(p & "\CD1291.TMP") <> "" Then Kill (p & "\CD1291.TMP")
End FunctionYou are going to have some very hard work cut out for you here. There is no
application class in VBScripting. There is no DIR() function. There is no
Kill function. You may want to transfer code to VB.net and then have DTS run
an application.
Andrew C. Madsen
Information Architect
Harley-Davidson Motor Company
"clutch" <clutch@.discussions.microsoft.com> wrote in message
news:974122A0-6D23-4C82-BA82-2FCBAF8D2716@.microsoft.com...
> I have a script that is run in Excel or Access that automatically runs the
code I have cut/pasted below. I attempted to cut/paste into an activeX task,
but doesn't work. Would anyone be able to convert this to vbscript?
> Thank you in advance for your help,
> clutch
> Attribute VB_Name = "CD-1291"
> Option Compare Database
> Option Explicit
> Public Function CD1291()
> On Error GoTo CD1291_Err
> Dim Y As String, M1 As String, M2 As String, D1 As String, D2 As String, d
As String, L1, L2, sd As Date
>
> d = Application.CurrentProject.Path
> If Dir(d & "\CD1291.msl") <> "" Then Kill (d & "\CD1291.msl")
> If Dir(d & "\CD1291.bat") <> "" Then Kill (d & "\CD1291.bat")
> If Dir(d & "\CD1291.mod") <> "" Then Kill (d & "\CD1291.mod")
> If Dir(d & "\CD1291.prj") <> "" Then Kill (d & "\CD1291.prj")
> If Dir(d & "\CD1291.RPT") <> "" Then Kill (d & "\CD1291.RPT")
> If Dir(d & "\CD1291.TMP") <> "" Then Kill (d & "\CD1291.TMP")
> Y = Year(Now() - 1)
> M1 = Month(Now() - 1)
> If M1 < 10 Then
> M1 = "0" & M1
> End If
> M2 = Month(Now() - 1)
> If M2 < 10 Then
> M2 = "0" & M2
> End If
> D1 = Day(Now() - 1)
> If D1 < 10 Then
> D1 = "0" & D1
> End If
> D2 = Day(Now() - 1)
> If D2 < 10 Then
> D2 = "0" & D2
> End If
> 'MsgBox Y & "-" & M1 & "-" & D1
> p = Application.CurrentProject.Path
> ''' MSL
> Open p & "\CD1291.msl" For Output As #1
> Print #1, "OPENTOPIC SERVERID 'OARS' TOPICNAME '5625' TOPICVERSIONID
'" & Y & M1 & D1 & "001001' TOPICITEM 'CD-1291 1853 SYS E=" & M2 & D2 &
"0" & Right(Y, 1) + 1 & "' REPORTID 'CD-1291' EXACTTOPICITEM"
> Print #1, "EXPORT ASCII FILE '" & p & "\CD1291.TMP' ALL GROUP ''"
> Print #1, "CLOSE"
> Print #1, "RUN '" & p & "\CD1291.bat'"
> Print #1, "EXIT"
> Close #1
> ''' MOD
> Open p & "\CD1291.mod" For Output As #1
> Print #1, "MFWMOD12"
> Print #1, "~Description"
> Print #1, "Premier Bankcard, Inc."
> Print #1, ""
> Print #1, "~Settings"
> Print #1, "M/D/Y"
> Print #1, "50"
> Print #1, "."
> Print #1, "0"
> Print #1, "1"
> Print #1, "1"
> Print #1, ","
> Print #1, "0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "Y"
> Print #1, "~ExtendedSettings"
> Print #1, "42"
> Print #1, "N"
> Print #1, "(Null)"
> Print #1, "1"
> Print #1, "1"
> Print #1, "128128255"
> Print #1, "128,32,96"
> Print #1, "255,0,255"
> Print #1, "160,0,224"
> Print #1, "64128128"
> Print #1, "255,0,128"
> Print #1, "128128128"
> Print #1, "85,85,255"
> Print #1, "128,0,128"
> Print #1, "193,0,193"
> Print #1, "255115115"
> Print #1, "128,64,255"
> Print #1, "0,128,0"
> Print #1, "128,64,64"
> Print #1, "255,0,0"
> Print #1, "255191255"
> Print #1, "255255255"
> Print #1, "225225225"
> Print #1, "151151151"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "12"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "10"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "N"
> Print #1, "N"
> Print #1, "8"
> Print #1, "Verdana"
> Print #1, "0,0,0"
> Print #1, "N"
> Print #1, "~TableField"
> Print #1, "Acct #"
> Print #1, "16"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "16"
> Print #1, "3"
> Print #1, "N"
> Print #1, "N"
> Print #1, "16"
> Print #1, "5"
> Print #1, "0"
> Print #1, "0"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Acct #"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Pymt Date"
> Print #1, "10"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "10"
> Print #1, "4"
> Print #1, "N"
> Print #1, "N"
> Print #1, "10"
> Print #1, "5"
> Print #1, "0"
> Print #1, "18"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Pymt Date"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Payment"
> Print #1, "18"
> Print #1, "2"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "19"
> Print #1, "5"
> Print #1, "N"
> Print #1, "N"
> Print #1, "19"
> Print #1, "5"
> Print #1, "0"
> Print #1, "30"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Payment"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float Amount"
> Print #1, "18"
> Print #1, "2"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "16"
> Print #1, "6"
> Print #1, "N"
> Print #1, "N"
> Print #1, "16"
> Print #1, "5"
> Print #1, "0"
> Print #1, "53"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float Amount"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Strat ID"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "7"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "70"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Strat ID"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Line"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "8"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "80"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Line"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Actn ID"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "9"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "86"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Actn ID"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Ltr #"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "10"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "96"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Ltr #"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Ltr Data"
> Print #1, "4"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "4"
> Print #1, "11"
> Print #1, "N"
> Print #1, "N"
> Print #1, "4"
> Print #1, "5"
> Print #1, "0"
> Print #1, "108"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Ltr Data"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float %"
> Print #1, "18"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "N"
> Print #1, "0"
> Print #1, "5"
> Print #1, "12"
> Print #1, "N"
> Print #1, "N"
> Print #1, "5"
> Print #1, "5"
> Print #1, "0"
> Print #1, "119"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float %"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Q Prio"
> Print #1, "2"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "2"
> Print #1, "13"
> Print #1, "N"
> Print #1, "N"
> Print #1, "2"
> Print #1, "5"
> Print #1, "2"
> Print #1, "18"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Q Prio"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Float Cycle"
> Print #1, "3"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "3"
> Print #1, "14"
> Print #1, "N"
> Print #1, "N"
> Print #1, "3"
> Print #1, "5"
> Print #1, "2"
> Print #1, "30"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Float Cycle"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Rpt"
> Print #1, "7"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "C"
> Print #1, "0"
> Print #1, "7"
> Print #1, "1"
> Print #1, "N"
> Print #1, "N"
> Print #1, "7"
> Print #1, "0"
> Print #1, "0"
> Print #1, "0"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Rpt"
> Print #1, "3"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~TableField"
> Print #1, "Date"
> Print #1, "8"
> Print #1, "0"
> Print #1, "0"
> Print #1, "1"
> Print #1, "D"
> Print #1, "0"
> Print #1, "12"
> Print #1, "2"
> Print #1, "N"
> Print #1, "N"
> Print #1, "14"
> Print #1, "0"
> Print #1, "0"
> Print #1, "107"
> Print #1, "N"
> Print #1, "~TableFieldExtended"
> Print #1, "Date"
> Print #1, "3"
> Print #1, "N"
> Print #1, "1"
> Print #1, "1"
> Print #1, "~Level"
> Print #1, "0"
> Print #1, ""
> Print #1, "1"
> Print #1, "CD-1291 1108/ AVAILABLE FUNDS ACCOUNT DATA
FIRST PREMIER BANK -FD- 01/09/04 PAGE 1
"
> Print #1, "2"
> Print #1, "0"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~LevelExtended"
> Print #1, "0"
> Print #1, "2"
> Print #1, "Page Header"
> Print #1, "N"
> Print #1, "N"
> Print #1, "~Level"
> Print #1, "5"
> Print #1, ""
> Print #1, "3"
> Print #1, "5149860001000015 2004/01/09 5.00
5.00 0002 0009 0001 0000 0000 100
"
> Print #1, " QUEUE PRIO FLOAT CYCL
"
> Print #1, " 00 011
"
> Print #1, "12"
> Print #1, "0"
> Print #1, "N"
> Print #1, "0"
> Print #1, "0"
> Print #1, "~LevelExtended"
> Print #1, "5"
> Print #1, "2"
> Print #1, "Detail"
> Print #1, "N"
> Print #1, "N"
> Print #1, "~PageSetup"
> Print #1, "1"
> Print #1, "256"
> Print #1, "10"
> Print #1, "50"
> Print #1, "50"
> Print #1, "2"
> Print #1, "Y"
> Print #1, "Y"
> Print #1, "Y"
> Print #1, ""
> Print #1, "~PageSetupExtended"
> Print #1, "1"
> Print #1, "Y"
> Print #1, "~End"
> Close #1
>
> '''PRJ
> Open p & "\CD1291.prj" For Output As #1
> Print #1, "MFWPRJ01"
> Print #1, "[RefreshDDR]"
> Print #1, "[InputFile]"
> Print #1, p & "\CD1291.RPT"
> Print #1, "[ModelFile]"
> Print #1, p & "\CD1291.mod"
> Print #1, "[ViewTable]"
> Print #1, "[SummaryNoChart]"
> Print #1, "[Author]"
> Print #1, "[Description]"
> Print #1, "[ASCII]"
> Print #1, "[End]"
> Close #1
>
> ''' BAT
> Open p & "\CD1291.bat" For Output As #1
> Print #1, "@.echo off"
> Print #1, "copy " & p & "\CD1291.TMP " & p & "\CD1291.RPT"
> Print #1, "del " & p & "\CD1291.TMP"
> Close #1
> '''Execute
> Do Until Dir(p & "\CD1291.TMP") <> "" Or Dir(p & "\CD1291.RPT") <> ""
> Shell ("C:\Program Files\Mobius\DDR\rdswin.exe " & p & "\CD1291.msl
/E")
> Pause (30)
> Loop
> Do Until Dir(p & "\CD1291.TMP") = ""
> DoEvents
> Loop
> Pause (5)
> If Dir("C:\CD1291.ASC") <> "" Then Kill ("C:\CD1291.ASC")
> Shell ("C:\Program Files\Mobius\DocuAnalyzer\program\analyz
er.exe " & p &
"\CD1291.prj " & p & "\CD1291.ASC")
> Pause (5)
> L1 = 1
> Do Until L1 = L2
> Open p & "\CD1291.ASC" For Random As #1
> L1 = LOF(1)
> Close #1
> Pause (5)
> Open p & "\CD1291.ASC" For Random As #1
> L2 = LOF(1)
> Close #1
> Loop
> Pause (5)
>
> If Dir(p & "\CD1291.msl") <> "" Then Kill (p & "\CD1291.msl")
> If Dir(p & "\CD1291.bat") <> "" Then Kill (p & "\CD1291.bat")
> If Dir(p & "\CD1291.mod") <> "" Then Kill (p & "\CD1291.mod")
> If Dir(p & "\CD1291.prj") <> "" Then Kill (p & "\CD1291.prj")
> If Dir(p & "\CD1291.RPT") <> "" Then Kill (p & "\CD1291.RPT")
> If Dir(p & "\CD1291.TMP") <> "" Then Kill (p & "\CD1291.TMP")
>
> End Function
>
>
ActiveX print button on SQL RS 2000 formatting to .5"
Is there any way to get the print button to format *automatically * the
margins based on what was written in the RDL?
For some reason it appears to want to be 0.5". I hate to tell the users to
keep changing it or exporting to PDF to get the margins I intended when I set
them from the Report Designer.I am new at RS, but it seems it takes the margins from the printer (and the
default values, in other words, it resets the values after you run it). In
fact, I read in the readme of the RS - SP2 that that is what it does.
I have a question for you (or anybody else that might want to answer): when
I print using the activex print button the report fonts, etc are bigger, for
instance, if I have a line of 6 inches wide it will take all the width of a
letter page (which is 8.5 inches). It is like printing with zoom.
Have you run into that problem?
Thanks for any info... José Araujo.
"David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> Is there any way to get the print button to format *automatically * the
> margins based on what was written in the RDL?
> For some reason it appears to want to be 0.5". I hate to tell the users
> to
> keep changing it or exporting to PDF to get the margins I intended when I
> set
> them from the Report Designer.|||My driver for an HP 8150 doesn't appear to have default values, but they
would certainly be closer, as the printer can print to less than .2 inches.
--
"José Araujo" wrote:
> I am new at RS, but it seems it takes the margins from the printer (and the
> default values, in other words, it resets the values after you run it). In
> fact, I read in the readme of the RS - SP2 that that is what it does.
> I have a question for you (or anybody else that might want to answer): when
> I print using the activex print button the report fonts, etc are bigger, for
> instance, if I have a line of 6 inches wide it will take all the width of a
> letter page (which is 8.5 inches). It is like printing with zoom.
> Have you run into that problem?
> Thanks for any info... José Araujo.
>
> "David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
> news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> > Is there any way to get the print button to format *automatically * the
> > margins based on what was written in the RDL?
> >
> > For some reason it appears to want to be 0.5". I hate to tell the users
> > to
> > keep changing it or exporting to PDF to get the margins I intended when I
> > set
> > them from the Report Designer.
>
>|||Well u can use Report Properties->layout->There's The Print setup
"David Bienstock" wrote:
> My driver for an HP 8150 doesn't appear to have default values, but they
> would certainly be closer, as the printer can print to less than .2 inches.
> --
> "José Araujo" wrote:
> > I am new at RS, but it seems it takes the margins from the printer (and the
> > default values, in other words, it resets the values after you run it). In
> > fact, I read in the readme of the RS - SP2 that that is what it does.
> >
> > I have a question for you (or anybody else that might want to answer): when
> > I print using the activex print button the report fonts, etc are bigger, for
> > instance, if I have a line of 6 inches wide it will take all the width of a
> > letter page (which is 8.5 inches). It is like printing with zoom.
> >
> > Have you run into that problem?
> >
> > Thanks for any info... José Araujo.
> >
> >
> > "David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
> > news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> > > Is there any way to get the print button to format *automatically * the
> > > margins based on what was written in the RDL?
> > >
> > > For some reason it appears to want to be 0.5". I hate to tell the users
> > > to
> > > keep changing it or exporting to PDF to get the margins I intended when I
> > > set
> > > them from the Report Designer.
> >
> >
> >|||That's the point. I have .25 inches on Left and Right but the ActiveX prints
it to .5" so it always comes out on 2 times the pages.
--
"Everyone knows something you don't know"
"ש×?×?×?" wrote:
> Well u can use Report Properties->layout->There's The Print setup
> "David Bienstock" wrote:
> > My driver for an HP 8150 doesn't appear to have default values, but they
> > would certainly be closer, as the printer can print to less than .2 inches.
> > --
> >
> > "José Araujo" wrote:
> >
> > > I am new at RS, but it seems it takes the margins from the printer (and the
> > > default values, in other words, it resets the values after you run it). In
> > > fact, I read in the readme of the RS - SP2 that that is what it does.
> > >
> > > I have a question for you (or anybody else that might want to answer): when
> > > I print using the activex print button the report fonts, etc are bigger, for
> > > instance, if I have a line of 6 inches wide it will take all the width of a
> > > letter page (which is 8.5 inches). It is like printing with zoom.
> > >
> > > Have you run into that problem?
> > >
> > > Thanks for any info... José Araujo.
> > >
> > >
> > > "David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
> > > news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> > > > Is there any way to get the print button to format *automatically * the
> > > > margins based on what was written in the RDL?
> > > >
> > > > For some reason it appears to want to be 0.5". I hate to tell the users
> > > > to
> > > > keep changing it or exporting to PDF to get the margins I intended when I
> > > > set
> > > > them from the Report Designer.
> > >
> > >
> > >
margins based on what was written in the RDL?
For some reason it appears to want to be 0.5". I hate to tell the users to
keep changing it or exporting to PDF to get the margins I intended when I set
them from the Report Designer.I am new at RS, but it seems it takes the margins from the printer (and the
default values, in other words, it resets the values after you run it). In
fact, I read in the readme of the RS - SP2 that that is what it does.
I have a question for you (or anybody else that might want to answer): when
I print using the activex print button the report fonts, etc are bigger, for
instance, if I have a line of 6 inches wide it will take all the width of a
letter page (which is 8.5 inches). It is like printing with zoom.
Have you run into that problem?
Thanks for any info... José Araujo.
"David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> Is there any way to get the print button to format *automatically * the
> margins based on what was written in the RDL?
> For some reason it appears to want to be 0.5". I hate to tell the users
> to
> keep changing it or exporting to PDF to get the margins I intended when I
> set
> them from the Report Designer.|||My driver for an HP 8150 doesn't appear to have default values, but they
would certainly be closer, as the printer can print to less than .2 inches.
--
"José Araujo" wrote:
> I am new at RS, but it seems it takes the margins from the printer (and the
> default values, in other words, it resets the values after you run it). In
> fact, I read in the readme of the RS - SP2 that that is what it does.
> I have a question for you (or anybody else that might want to answer): when
> I print using the activex print button the report fonts, etc are bigger, for
> instance, if I have a line of 6 inches wide it will take all the width of a
> letter page (which is 8.5 inches). It is like printing with zoom.
> Have you run into that problem?
> Thanks for any info... José Araujo.
>
> "David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
> news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> > Is there any way to get the print button to format *automatically * the
> > margins based on what was written in the RDL?
> >
> > For some reason it appears to want to be 0.5". I hate to tell the users
> > to
> > keep changing it or exporting to PDF to get the margins I intended when I
> > set
> > them from the Report Designer.
>
>|||Well u can use Report Properties->layout->There's The Print setup
"David Bienstock" wrote:
> My driver for an HP 8150 doesn't appear to have default values, but they
> would certainly be closer, as the printer can print to less than .2 inches.
> --
> "José Araujo" wrote:
> > I am new at RS, but it seems it takes the margins from the printer (and the
> > default values, in other words, it resets the values after you run it). In
> > fact, I read in the readme of the RS - SP2 that that is what it does.
> >
> > I have a question for you (or anybody else that might want to answer): when
> > I print using the activex print button the report fonts, etc are bigger, for
> > instance, if I have a line of 6 inches wide it will take all the width of a
> > letter page (which is 8.5 inches). It is like printing with zoom.
> >
> > Have you run into that problem?
> >
> > Thanks for any info... José Araujo.
> >
> >
> > "David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
> > news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> > > Is there any way to get the print button to format *automatically * the
> > > margins based on what was written in the RDL?
> > >
> > > For some reason it appears to want to be 0.5". I hate to tell the users
> > > to
> > > keep changing it or exporting to PDF to get the margins I intended when I
> > > set
> > > them from the Report Designer.
> >
> >
> >|||That's the point. I have .25 inches on Left and Right but the ActiveX prints
it to .5" so it always comes out on 2 times the pages.
--
"Everyone knows something you don't know"
"ש×?×?×?" wrote:
> Well u can use Report Properties->layout->There's The Print setup
> "David Bienstock" wrote:
> > My driver for an HP 8150 doesn't appear to have default values, but they
> > would certainly be closer, as the printer can print to less than .2 inches.
> > --
> >
> > "José Araujo" wrote:
> >
> > > I am new at RS, but it seems it takes the margins from the printer (and the
> > > default values, in other words, it resets the values after you run it). In
> > > fact, I read in the readme of the RS - SP2 that that is what it does.
> > >
> > > I have a question for you (or anybody else that might want to answer): when
> > > I print using the activex print button the report fonts, etc are bigger, for
> > > instance, if I have a line of 6 inches wide it will take all the width of a
> > > letter page (which is 8.5 inches). It is like printing with zoom.
> > >
> > > Have you run into that problem?
> > >
> > > Thanks for any info... José Araujo.
> > >
> > >
> > > "David Bienstock" <davidleebspam-sqlrs@.yahoo.com> wrote in message
> > > news:931F70D0-693C-408B-B082-8D6719F1A6BC@.microsoft.com...
> > > > Is there any way to get the print button to format *automatically * the
> > > > margins based on what was written in the RDL?
> > > >
> > > > For some reason it appears to want to be 0.5". I hate to tell the users
> > > > to
> > > > keep changing it or exporting to PDF to get the margins I intended when I
> > > > set
> > > > them from the Report Designer.
> > >
> > >
> > >
Subscribe to:
Posts (Atom)