Gramstrup Mester
19. maj 2017 - 20:16 Der er 2 kommentarer og
1 løsning

Print forskelige antal kopier med VBA

Hejsa

Jeg har nedenstående makro som jeg bruger til at printe en masse ark ud med. Den værdi der står i Kolonne N gør at jeg siden bliver udfyldt med det som er nødvendigt. Selve makroen fungere som den skal. Men i kolonne O står hvor mange kopier der skal ud af de enkle linjer. Det er meget skiftenede og er imellem 1-10 stk. Det er vigtigt at når der f.eks. skal printes 10 x af N2 så skal de komme inden de 2 x af N3 efter fulgt af 5 x N4 o.s.v. hvor antallet som sagt står i kolonne O.

Jeg er kørt lidt fast i det.

For Each c In Range("n2:n200")
If c.Value > 1 Then
    c.Copy
    Range("h50").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
Next
End Sub
Jan Hansen Ekspert
19. maj 2017 - 21:47 #1
For iCount=0 to c.Offset(0,1).Value
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next

Jan
Gramstrup Mester
20. maj 2017 - 08:14 #2
Perfekt. Dog laver den en ekstra kopi. Derfor har jeg rettet den så istedet for 0 står der 1 som kan ses herunder:

For iCount=1 to c.Offset(0,1).Value
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Så virker den lige som den skal. Mange tag for hjælpen.
Jan Hansen Ekspert
20. maj 2017 - 08:31 #3
Velbekomme var ikke testet.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Fire gange større end næststørste leverandør: Offentlige indkøbere bør følge Ateas dominerende markedsposition tæt
Atea er fire gange større end den næststørste hardware-leverandør til det offentlige. Situationen skal følges skarpt af offentlige indkøbsorganisationer, så det ikke ender med dårlig konkurrence, lyder opråbet.
Computerworld
Få mere fra hånden med det nye Gmail: Her er de første billeder af Googles nye mail-satsning
Google vil gøre Gmail enklere og mere produktiv i de kommende uger. Se hvordan det nye Gmail tager sig ud her.
CIO
Allersidste opdatering på vej: Om en uge er det slut med stor-version af Windows 10 - skynd dig at opdatere
Om en uge er det slut for altid med den første store udgave af Windows 10, som Microsoft efter 29 måneder ikke længere vil supportere.
Job & Karriere
Klassiske brokere af it-konsulenter står over for kæmpe udfordring - forretningsmodellen er under pres
Klumme: Eksterne konsulenter er populære og en god løsning i en branche i vækst. Men selve forretningsmodellen bag it-konsulenterne er under alvorligt pres.
White paper
Digitalisering i verdensklasse: Lær af finanssektorens erfaringer og nye syn på infrastruktur
Digitaliseringen buldrer afsted i erhvervslivet, men få brancher er så langt fremme som finanssektoren i bestræbelserne på digital transformation. Det har resulteret i en masse erfaringer om blandt andet hybrid infrastruktur, som andre kan drage nytte af. Læs i dette whitepaper udarbejdet af IDC for Interxion om udviklingen, den nye tankegang og de umiddelbare fordele. 12 sider på engelsk.