IF "Printer ikke laver noget" then... ELSE "udfør denne sætning"...

Kan vi ikke lige få koden at se

Har du prøve at bruge IIF

IIF???

Jeg aner intet om VB, og det er selve sætningen til det jeg mangler, dvs. den som skriver ud, hvis det forrige job er udført...

Hvad er det du skal lave i en Marko

Ja, det er ikke mig som laver det, men det er noget MACRO noget, men det laves i VB.

Kan har fået det til at virke, dog ikke via VB kodning!

Koden ser således ud:

Sub UdskrivEnRapport()
'
' UdskrivEnRapport Macro
' Macro recorded 17-09-1999 by PHO
'
    Application.ScreenUpdating = False
    Dim sti
    Set sti = Worksheets("Udskrivning").Range("E7")
   
    'udskriv taldel "Forside"
    Sheets("Forside").PrintOut Copies:=1, Collate:=True
   
    'udskriv tekstdel 1
    Documents.Open FileName:=sti.Value
    Options.PrintBackground = False
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="2", To:="7"


'''blandt andet her er der behov for at makroen venter på, at Word sætter printjobbet i kø
'''hvis baggrundsudskrivning i Word er slået fra, er der ikke behov for pause

   
    'udskriv taldel "Fordeling"
    Sheets("Fordeling").PrintOut Copies:=1, Collate:=True
   
    'udskriv tekstdel 2
    Documents.Open FileName:=sti.Value
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="9", To:="10"
   
    'udskriv taldel "samlet"
    Sheets("Samlet").PrintOut Copies:=1, Collate:=True
   
    'udskriv tekstdel 3
    Documents.Open FileName:=sti.Value
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="12", To:="13"
   
    'udskriv taldel "NøgleAlm" og "NøgleSpec"
    Sheets("NøgleAlm").PrintOut Copies:=1, Collate:=True
    Sheets("NøgleSpec").PrintOut Copies:=1, Collate:=True
   
    'udskriv tekstdel 4
    Documents.Open FileName:=sti.Value
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="20", To:="21"
   
    'udskriv taldel "Budget"
    Sheets("Budget").PrintOut Copies:=1, Collate:=True
   
    'udskriv tekstdel 5
    Documents.Open FileName:=sti.Value
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="25", To:="26"
    Options.PrintBackground = False
    Documents.Close SaveChanges:=False
   
    Sheets("Udskrivning").Select
    Application.ScreenUpdating = True
End Sub





HÅber vi kommer lidt viddere...:-)

UPS, har glemt at accepter/afvise - så du får de 15 point anyway