26. oktober 2015 - 10:56Der er
12 kommentarer og 1 løsning
Makro som printer vilkårlig antal sider
håber nogen kan hjælpe med at ændre denne makro så den kan have flere funktioner i en linie..? som den er nu så stopper min printer for hver sætning og tænker før næste betingelse udskrives. ActiveWindow.SelectedSheets.PrintOut From:=10, To:=10, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=11, To:=12, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=14, To:=14, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=22, To:=22, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=23, To:=24, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=27, To:=30, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=32, To:=32, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=36, To:=36, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut From:=39, To:=40, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False
' Tilbage til "Makro"-sheet ActiveWorkbook.Sheets("MAKRO").Select
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Er det fordi du så "gøre noget mere" - som du har antydet i dit spørgsmål. Selv VBA-koden til udskriften kan godt skrives en gang, som så anvendes til alle sider.
Bedre? Public Sub udskrivFlereSider() udskriv "10-11-12-14-22-23-24-27-28-29-30-32-36-39-40" End Sub Sub udskriv(siderne) Dim tabel As Variant, t As Integer, sideNr As String Sheets("Ark1").Activate tabel = Split(siderne, "-")
For t = 0 To UBound(tabel) sideNr = tabel(t) ExecuteExcel4Macro "PRINT(2," & sideNr & "," & sideNr & ",1,,,,,,,,2,,,TRUE,,FALSE)" Next t
Public Sub udskrivFlereSider() udskriv "10-11-12-14-22-23-24-27-28-29-30-32-36-39-40" End Sub Sub udskriv(siderne) Dim tabel As Variant, t As Integer, sideNr As String Sheets("Ark1").Activate tabel = Split(siderne, "-")
For t = 0 To UBound(tabel) sideNr = tabel(t) ActiveWindow.SelectedSheets.PrintOut From:=sideNr, To:=sideNr, Copies:=1, _ Collate:=True, IgnorePrintAreas:=False Next t
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
