Problem med PrintOut
Følgende forkortede kode i VB .Net forsøger at printe 3 dokumenter MEN der udprintes kun de 2 første. Hvis jeg sætter en "stopper" tidligt i koden og anvender F8 til springe fra linie til linie printes dokumenterne korrekt...HJÆLP' Indkaldelser ---------------------------------------------------------------------------------------
Gemmesti = "\\192.168.16.10\faelles\Index Data\Patienter\" & Cpr & "\"
Dim D As DateTime
D = Now.ToShortDateString
Dim C As String
C = Me.ComboBox1.Text
If C <> "" Then
' Indkaldelser KAG/PCI ----------------------------------------------------------------------------
Hentsti = "\\192.168.16.10\faelles\Index\dokumenter\Sekretariat\Fælles\"
Filnavn = "IndkaldelseTilOperation.dot"
'Undersøger om Word er startet
On Error Resume Next
WDApp = GetObject(, "Word.application")
If Err.Number <> 0 Then
'Ellers starter vi word
WDApp = CreateObject("Word.Application")
WDApp.Visible = False
WDApp.Activate()
End If
'Opret et nyt Word dokument baseret på skabelonen
WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)
With WDApp.ActiveDocument
'Indsæt data i dokumentets bookmarks
.Bookmarks("Navn").Range.Text = Navn
.Bookmarks("Adr").Range.Text = Adr
.Bookmarks("PostBy").Range.Text = PostBy
.Bookmarks("IKl").Range.Text = IKl
.Bookmarks("IDag").Range.Text = IDag
.Bookmarks("IDato").Range.Text = IDato
.SaveAs(Gemmesti & "IndkaldelsetilOperation-" & D & ".doc")
.PrintOut(Background:=True, Copies:=2)
.Close(False)
End With
'WDApp.Quit(False)
WDApp = Nothing
GoTo OperationSkema
'Skemaer ------------------------------------------------------
OperationSkema:
Hentsti = "\\192.168.16.10\faelles\Index\dokumenter\Stamdata\"
Filnavn = "Stamdata.dot"
'Undersøger om Word er startet
On Error Resume Next
WDApp = GetObject(, "Word.application")
If Err.Number <> 0 Then
'Ellers starter vi word
WDApp = CreateObject("Word.Application")
WDApp.Visible = False
WDApp.Activate()
End If
'Opret et nyt Word dokument baseret på skabelonen
WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)
With WDApp.ActiveDocument
.Bookmarks("Cpr").Range.Text = Cpr
.Bookmarks("Fornavn").Range.Text = FNavn
.Bookmarks("Efternavn").Range.Text = ENavn
.Bookmarks("Hcv").Range.Text = HCV
.Bookmarks("Adresse").Range.Text = Adr
.Bookmarks("Postnr").Range.Text = Postnr
.Bookmarks("By").Range.Text = By
.SaveAs(Gemmesti & "Stamdata-" & D & ".doc")
.PrintOut(Background:=True, Copies:=1)
.Close(False)
End With
'System.Threading.Thread.CurrentThread.Sleep(10000)
WDApp = Nothing
'WDApp.Quit(False)
GoTo OPForside
'Forsider --------------------------------------------------------------
OPForside:
Hentsti = "\\192.168.16.10\faelles\Index\dokumenter\Sekretariat\Fælles\"
Filnavn = "ForsideTilCABG.dot"
'Undersøger om Word er startet
On Error Resume Next
WDApp = GetObject(, "Word.application")
If Err.Number <> 0 Then
'Ellers starter vi word
WDApp = CreateObject("Word.Application")
WDApp.Visible = False
WDApp.Activate()
End If
'Opret et nyt Word dokument baseret på skabelonen
WDApp.Documents.Add(Template:=Hentsti & Filnavn, NewTemplate:=False, DocumentType:=0)
With WDApp.ActiveDocument
'Indsæt data i dokumentets bookmarks
.Bookmarks("Cpr1").Range.Text = Cpr
.Bookmarks("Hcv1").Range.Text = HCV
.Bookmarks("Navn1").Range.Text = FNavn & " " & ENavn
.Bookmarks("Adr1").Range.Text = Adr
.Bookmarks("PostBy1").Range.Text = Postnr & " " & By
.Bookmarks("Tlf1").Range.Text = Tlf
.Bookmarks("IDato1").Range.Text = IDato
.Bookmarks("Mobil").Range.Text = Mobil
.Bookmarks("Arbejdstelefon").Range.Text = Arbejdstelefon
.Bookmarks("OpType1").Range.Text = Behandling
.Bookmarks("El1").Range.Text = El
.Bookmarks("ElAdr1").Range.Text = ElAdr
.Bookmarks("ElPostBy1").Range.Text = ElPostNr & " " & ElBy
.SaveAs(Gemmesti & "ForsideTilCABG-" & D & ".doc")
.PrintOut(Background:=True)
.Close(False)
End With
'WDApp.Quit(False)
'WDApp = Nothing
GoTo Slut
Slut:
WDApp.Quit(False)
WDApp = Nothing
Me.Close()
End Sub
