Vba udskrift af 2 ark sker i 2 prinjob

Du kan foretage en selection af de to sheets og foretage en print af selection

Sheets(Array("blanket", "kontonumre")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

A la Sheets(Array("kontonumre", "blanket")).Select
Selection.PrintOut Copies:=1, Collate:=True

Svar nr 1 virkede, ved svar nr 2 fik jeg at vide siderne var blanke

Når jeg udskriver får jeg først udskrevet de 2 sidder korrekt og bagefter kommer den side man står på når man trykker udskriv, hvilket gør at én af siderne kommer ud 2 gange. Hvordan forhindrer man det?

Mon ikke, at det er eventet Workbook_beforePrint, der driller? Placér din kode i en "almindelig" procedure og se, om det ikke klarer tricket.

Det kan jeg ikke se vil gøre en forskel. Excel vil jo udskrive den side brugeren vælger udskriv på, men det er det jeg skal have annulleret, så der kun kommer de 2 sider jeg har valgt.

Præcis. Men da du ikke overtager printkommandoen, men blot tilføjer noget, inden der bliver printet, så printer den først de 2 sider, som du beder den om og så den side, som brugeren rent faktisk har bedt om (det er i hvertfald min teori - du må selv afprøve det).

Det blev løst ved at bruge følgende kode:

Private Sub Workbook_beforePrint(Cancel As Boolean)
If Sheets("blanket").Range("b12").Value > 0 Then
        Cancel = True
        Application.EnableEvents = False
        Sheets("blanket").Range("A1:I48").PrintOut copies:=1, collate:=True
        Application.EnableEvents = True
End If
End Sub

Hvis kriteriet ikke er opfyldt printes der normalt, hvis kriteriet er opfyldt printes kun udvalgte range. Det blev ikke nødvendigt alligevel at printe 2 ark.
Akyhne vil du smide et svar så får du point?

Ok.