Makro i Word

Hvis du ændrer brevfletning til at flette direkte til printeren i stedet for at flette til et nyt dokument, skulle du slippe for dette problem.

I forbindelse med brevfletningen kommer der en dialogboks frem, når du klikker på knappen Flet i Flethjælperen. Det er i denne dialogboks, du kan vælge hvor skal resultatet af brevfletningen skal placeres.

Prøv lige at indsætte koden, så arbejder jeg videre med den, så det kan lykkes.

Jeg prøver lige Eriks forslag.

Hvis du vælger Funktioner->Makro->Makroer...
Marker din makro, og klikker på knappen Rediger, kommer koden frem på skærmen.
Ret linien:
  .Destination = wdSendToNewDocument
til:
  .Destination = wdSendToPrinter

Men problemet er jo at du prøver at lukke Word, før printjobbet er færdigt - det var derfor lige ville se din kode (altså hvilken metode du bruger til at printe og lukke Word)

Jeg bruger Application.Quit

Jeg tror det er din printkommando, der skal modificeres, så den ikke skriver ud i baggrunden:

Application.PrintOut Background:=False

må vi se din kode - det gøre det måske lidt nemmere at hjælpe dig

Noget nyt?????

Hej

Jeg har prøvet både .Destination = wdSendToPrinter og Application.PrintOut Background:=False og i begge tilfælde kommer printer dialogboksen frem.


Sub BKS_AX_BREV_1()

    Documents.Open FileName:="D:\BKS\BREVE\STD-BREVE\BKS_AX_BREV_1.doc", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter 'wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
    End With
        .Execute Pause:=True
    End With
    ActiveDocument.PrintOut
    ActiveDocument.ActiveWindow.Close SaveChanges:=wdNoSaveChanges
    'ActiveDocument.ActiveWindow.Close SaveChanges:=wdNoSaveChanges
    Application.Quit
    Close
End Sub

Denne kode fungerer uden problemer og uden dialogboks

Sub brevflet()
Documents.Open FileName:="""Test flettebrev.doc""", ConfirmConversions:= _
        False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
   
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Documents and Settings\rima2-pc1\Skrivebord\TEST liste til flettebrev.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\rima2-pc1\Skrivebord\Erhvervs og Boligstyrelsen\TEST liste til flettebrev.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet" _
        , SQLStatement:="SELECT * FROM `Ark1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
   
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
   
    ActiveDocument.PrintOut False
    Application.Quit
End sub

Så det er nok noget med din "Close" til sidst.

Jeg har bare optaget den (derfor ser det lidt rodet ud *S*), menjeg har lige opdaget endnu en forskel:

Du har ".Execute Pause:=True"
Jeg har ".Execute Pause:=False"

Og så har jeg  selvfølgelig datakilden med, men det skulle ikke betyde noget.

Ok, tester lige

Hvordan gik testen?

Jeg har lige haft 1 uges ferie, derfor den lange svar tid.  Tak for hjælpen.