Hvorfor er denne kode så dræbende langsom

du kan speede den lidt op ved at sætte
Application.ScreenUpdating = False
og til slut

Application.ScreenUpdating = True

Det står lidt længere oppe i koden.

Det tager ca. 70 sek. at køre koden på de 8 sheets der er i min workbook !

Ok, det er langsom, men hvis man bruger kode fra excel 4 kan det gå meget hurtigere.
test det her. Jeg har fået det til at virke, men måske skal du have lidt mere hjælp, da jeg ikke har set resten af koden :-) (max 7 sek.)

Bemærk at alle de steder du havde reference til PageDetup (.) er ændret til strenge.

For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
      LeftFooter = "&L" & strcopyright
      RightMargin = "0.5"    'Application.InchesToPoints(0.5)
      TopMargin = "1"        'Application.InchesToPoints(1)
      BottomMargin = "0.5"  'Application.InchesToPoints(0.5)
      PaperSize = xlPaperA4  '9
   
      Select Case bytType
        Case conTaxa
          RightFooter = "&R TAXAmeter afregning"
          Orientation = xlPortrait                                'Print portrait
          LeftMargin = "1" 'Application.InchesToPoints(1)
        Case conCash
          RightFooter = "Kontantafregning"
          Orientation = xlPortrait                                'Print portrait
          LeftMargin = "1" 'Application.InchesToPoints(1)
        Case conDrivers
          RightFooter = "Chaufførliste"
          Orientation = xlLandscape                                'Print landscape
          LeftMargin = "0.5" 'Application.InchesToPoints(0.5)
        Case conYear
          RightFooter = "Årsopgørelse"
          Orientation = xlPortrait                                'Print portrait
          LeftMargin = "1" 'Application.InchesTocentimeters(1)
        Case Else
          RightFooter = ""
          Orientation = xlPortrait                                'Print portrait
          LeftMargin = "1" 'Application.InchesToPoints(1)
      End Select
      EntireFooter = """" & LeftFooter & RightFooter & """"
     
      psetup = "PAGE.SETUP(""""," & EntireFooter & "," & LeftMargin & "," & RightMargin & ","
      psetup = psetup & TopMargin & "," & BottomMargin & ",,,,," & Orientation & "," & PaperSize
      psetup = psetup & ",,,,True)"
      Debug.Print psetup
      Application.ExecuteExcel4Macro psetup
  Next ws

Hvis du lige ser på left & rightfooter findes dette ikke i xl4 med man kan højre og venstrestiile dele tekst
"&R TAXAmeter afregning"      højrestiiler teksten
"&L" & strcopyright          venstrestiller strcopyright


Jeg har kun rettet TAXAmeter afregning

Parametrene for sideopsætning i XL4-makroer er
PAGE.SETUP(Hoved, fod, v.margin, h.margin,topmargin, bundmargin, Overskrifstlinie, gitter, vandret centreret, lodret centreret, orientering, papirstr, skala%, sidetal, udskriftsrækkefølge, sh/farve (Sand=sort/Hvid))

Det der mangler i den viste kode, er dimensionering af variable, Application.ScreenUpdating = False + sidst - fejlhåndtering og Application.ScreenUpdating = True

Jeg har rodet en del med koden og den måde jeg kalder den på og er kommet frem til en anden måde at kalde det på der gør at jeg kun ændrer på et sheet i workbook'en og det giver et resultat der ligger omkring 8 sek. og det er nok så hurtigt som det kan lade sig gøre.
Det lader dog til at der kan hentes lidt mere ved at bruge din metode bak, så det vil jeg da efterprøve.

Hvordan gør du så nu ?

Jeg tester lige lidt senere på aftenen og vender tilbage

hvad med at sætte den herind, og så bruge ActiveSheet.Name til at styre hvilken side det er.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Så opdaterer den kun når der skal udskrives

Den mulighed tror jeg ikke jeg kan få til at spille da jeg i flere tilfælde går det at jeg sætter data ind på nogle sheets som normalt er skjulte og så skriver jeg ud når der trykkes på en knap på et andet ark. Så vidt jeg lige kan se vil det give mig et forkert navn da det jo er arket med knappen der er aktiv.

I øvrigt så virker koden tilsyneladende ekstremt hurtigt - jeg kan komme ned på 1 sek. pr. side og når jeg så får det til at spille så det kun er den enkelte side der ændres på, så er det helt acceptabelt.

Så bak hvis du lige smider et svar så du kan få dine velfortjente point

PS:
"Parametrene for sideopsætning i XL4-makroer er
PAGE.SETUP(Hoved, fod, v.margin, h.margin,topmargin, bundmargin, Overskrifstlinie, gitter, vandret centreret, lodret centreret, orientering, papirstr, skala%, sidetal, udskriftsrækkefølge, sh/farve (Sand=sort/Hvid))"
Hvis sh/farve (Sand=sort/Hvid) står til True kan det så bevirke at de liniefarver jeg har lavet ikke skrives ud ? 
Jeg har lavet det så hver anden linie i en af udskrifterne skulle være lys-grøn, men det er forsvundet nu.

Ja, det sidste argument skal stå til False, for at farver skrives ud.
Jeg havde sat den til true, da min printer er en ældre laserprinter

psetup = "PAGE.SETUP(""""," & EntireFooter & "," & LeftMargin & "," & RightMargin & ","
      psetup = psetup & TopMargin & "," & BottomMargin & ",,,,," & Orientation & "," & PaperSize
      psetup = psetup & ",,,,False)"

OK - det må jeg bare lige have ændret.

bak>  ved du om man kan pille i de parametre til PAGE.SETUP så den laver en 'Fit to page'

Parameteren Skala% sættes til TRUE

psetup = "PAGE.SETUP(""""," & EntireFooter & "," & LeftMargin & "," & RightMargin & ","
psetup = psetup & TopMargin & "," & BottomMargin & ",,,,," & Orientation & "," & PaperSize
psetup = psetup & ",True,,,True)"

en sjælden gang er det godt at have en xl4-manual :-)

Det havde jeg aldrig gættet at Skale% kunne antage værdien True :-)
(men det vil jeg da prøve når jeg kommer hjem i aften)

Den manual den findes vel ikke som PDF :-)

Nej da,den er jo fra sidste årtusinde, men hjælpen til XL-4 macroer er til fri download ved MS.

Jeg kan desværre kun finde en fil der kræver at du har Office 2000 på maskinen - og det kan jeg ikke klare :-)

Hent den bare alligevel, det har ingen praktisk betydning med versionerne.
Det er kun selve hjælpefilen der er interessant.
Du kan sikkert finde den i c:\programmer\office og den hedder xlmacr8.hlp
Denne fil kan åbnes via stifinder.

jeg fandt et link til en dk-version, men skal du bruge det direkte i vba så må du nok finde en eng. version.

http://www.microsoft.com/downloads/details.aspx?FamilyID=C09BF7F7-D30E-4CE9-8930-5D03748CA5CD&displaylang=da

Jeg tror det er den samme som jeg har fundet - jeg får også en fejl her når jeg forsøger at køre .exe filen.  Jeg har dog prøvet at installere den på en andens computer og fandt en fil der hedder XLMACRO.CHM og der står en masse om excel 4 makroer i.

Skulle du få lyst til at se de ark jeg roder med, så er de begge tilgængelige på min hjemmeside www.hugopedersen.dk under TAXIfiler

Har kigget. dyb respekt......flot kodning

Tak for roserne :-)

Jeg er ikke sikker på at udviklerne af Excel havde alle de ting jeg gør med i tankerne da de planlagde udviklingen :-)

Normalt ville jeg have lavet sådan noget i Access, men da mange af mine 'kunder' kun har en standard Office på deres maskiner, så var jeg jo nødt til at lave noget til dem også.

bak> en af parametrene i den Excel4 makro er printkvalitet. Har du nogen ide om hvilke værdier den kan antage?  Jeg synes ikke jeg har haft held med at finde det nogen steder.
Jeg ville gerne kunne justere så nogen af udskrifterne kommer i draftkvalitet på en farveprinter. Det er hurtigere og billiger og resultatet er godt nok til det det skal bruges til.