Print entire workbook pr. default

Problemet er, at printsettings er knyttet til den enkelte fil, ikke til Excel generelt. Så det, der engang ER gemt i filen, kan nok ikke ændres.

Men det må kunne løses med en macro eller en registry setting

Det kan løses med en makro, men denne makro skal ligge i hver af de allerede eksisterende filer.

Indsæt disse 2 subs i et modul i den projektmappe der skal starte løjerne


Sub AllFolderFiles()
Dim wb As Workbook
Dim TheFile As String
Dim MyPath As String
MyPath = "C:\" ' Ret til aktuel sti *******
ChDir MyPath
TheFile = Dir("*.xls")
Do While TheFile <> ""
  Set wb = Workbooks.Open(MyPath & "\" & TheFile)
Call AllSheets
  wb.Close
  TheFile = Dir
Loop
End Sub

Sub AllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
  ws.PrintPreview ' Udskriv på skærm
'ws.printout  ' Udskriv på printer
Next
End Sub

Du kan løse problemet ved at rette i registreringsdatabasen. Men så gælder det helt generelt - også når du printer inde fra Excel.

Du skal rette to KEYS:


    HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec

og

    HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec\ifexec

I begge tilfælde skal print() ændres til print(,,,,,,,,,,,3) - altså 11 kommaer og et 3 tal.

3 betyder "Hele projektmappen".

Som altid er det en god idé at tage back-up af registreringsdatabasen før du laver ændringerne.

Dette er supert..  Excellent, jeg fik ikke prøvet din løsning, men "jkrons" virker strålende..

Øhh, bøø, hvordan giver jeg mine point???

øv. havde ellers lige købt aktier i den lokale papir og farve handler :-)

når jkrons lægger et svar, marker hans navn + accepter

Godt at det virkede :-)