Macro print vraagje

[Verwijderd lid 72049]

Kenners,

Ik heb een sheet met drie tabbladen op blad 1 wil ik een macro met knop plaatsen om blad2 en blad 3 te printen, als ik nu een macro opneem doet hij of blad2 of blad 3 maar niet beiden,
wie kan me de tip geven hoe ik dat voor elkaar krijg.

Jan

 

[OctaFish]

Heb je al geprobeerd om de (print)code achter de knop in de sub te kopieren, met uiteraard aanpassing naar de verwijzing van het werkblad?

Michel

 

[Verwijderd lid 72049]

Michel,

Sorry ik snap er geen hout van wat je schrijft zou je het wat eenvoudiger kunnen omschrijven. (ik ben geen expert)

 

[trucker10]

Kenners,

als ik nu een macro opneem doet hij of blad2 of blad 3 maar niet beiden,
wie kan me de tip geven hoe ik dat voor elkaar krijg.

Jan

Ik heb de recorder gebruikt , waarschijnlijk heb je bij het selecteren van je tabbladen de ctrl toets niet ingedrukt .

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 1/07/2009 door Daniel.
'

'
    Sheets(Array("Blad3", "Blad2")).Select
    Sheets("Blad2").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Deze code print alles uit wat in het workbook staat

Sub Test()
Dim sheet As Worksheet

For Each sheet In ThisWorkbook.Worksheets
   
        sheet.PrintOut
  
Next sheet

End Sub

Als je meerdere printers hebt of in pdf of onenote wil printen

Sub Macro1()

    Sheets(Array("Blad3", "Blad2")).Select
    Sheets("Blad2").Activate
    [COLOR="Red"]Application.Dialogs(xlDialogPrinterSetup).Show[/COLOR]
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Voeg dan de rode tekst toe

 

[Verwijderd lid 72049]

Tucker10,

Helemaal top van de ctr; toest wist ik niet dat is de oplossing.
Mijn dank voor de duidelijke voorbeelden.


Jan