L
Linus M
H
My problem is when I am printing to a word XP document using selection.
The error ususaly comes between 220 - 270 pages and it is never the same place in the code that generates the error
when I use Word 2K this problem rearly occures but in Word XP it always occure.
The program saves after each page and every page looks almost the same apart from the text and diffrent tables, due to diffrent text, that is retreived from an Access database.
If anyone have any idea of this problem all help would be appricated
Thank
/Linu
OS WinX
WORD X
VB 6.
Here is part of the code that has been executed on every page before this error on page, 230
Selection.Shading.BackgroundPatternColor = wdColorGray2
Selection.Font.Bold = Tru
Selection.TypeText Text:="Function definition
Selection.MoveRight Unit:=wdCharacter, Count:=
Selection.TypeText Text:="Name
Selection.MoveRight Unit:=wdCel
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExten
Fail -> Selection.Cells.Merg
Selection.TypeText Text:=V_FktNam
Selection.MoveRight Unit:=wdCharacter, Count:=
Selection.TypeText Text:="FBID
Selection.MoveRight Unit:=wdCel
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExten
Selection.Cells.Merg
Selection.TypeText Text:=V_FbI
Selection.MoveRight Unit:=wdCharacter, Count:=
Selection.TypeText Text:="FktID
Selection.MoveRight Unit:=wdCell
My problem is when I am printing to a word XP document using selection.
The error ususaly comes between 220 - 270 pages and it is never the same place in the code that generates the error
when I use Word 2K this problem rearly occures but in Word XP it always occure.
The program saves after each page and every page looks almost the same apart from the text and diffrent tables, due to diffrent text, that is retreived from an Access database.
If anyone have any idea of this problem all help would be appricated
Thank
/Linu
OS WinX
WORD X
VB 6.
Here is part of the code that has been executed on every page before this error on page, 230
Selection.Shading.BackgroundPatternColor = wdColorGray2
Selection.Font.Bold = Tru
Selection.TypeText Text:="Function definition
Selection.MoveRight Unit:=wdCharacter, Count:=
Selection.TypeText Text:="Name
Selection.MoveRight Unit:=wdCel
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExten
Fail -> Selection.Cells.Merg
Selection.TypeText Text:=V_FktNam
Selection.MoveRight Unit:=wdCharacter, Count:=
Selection.TypeText Text:="FBID
Selection.MoveRight Unit:=wdCel
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExten
Selection.Cells.Merg
Selection.TypeText Text:=V_FbI
Selection.MoveRight Unit:=wdCharacter, Count:=
Selection.TypeText Text:="FktID
Selection.MoveRight Unit:=wdCell