Application.ActivePrinter = STDprinter
ActiveWindow.SelectedSheets.PrintOut Copies:=3
mikä tuossa ensimmäisessä rivissä on väärin?
lähtötilanne on siis seuraava: on juuri tulostettu tiedosto pdf. fileksi pdf creatorilla, sitten tulisi aktiivinen printteri vaihtaa takaisin oletuskirjoittimeksi ja tulostaa excel dokumentti ulos kolmena kappaleena.
ActiveWindow.SelectedSheets.PrintOut Copies:=3
mikä tuossa ensimmäisessä rivissä on väärin?
lähtötilanne on siis seuraava: on juuri tulostettu tiedosto pdf. fileksi pdf creatorilla, sitten tulisi aktiivinen printteri vaihtaa takaisin oletuskirjoittimeksi ja tulostaa excel dokumentti ulos kolmena kappaleena.
Vastaukset 1
Vanhimmat
Kopioitu toisaammalta
Sub PrintToAnotherPrinter()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "microsoft fax on fax:"
' change printer
ActiveSheet.PrintOut
' prints the active sheet
Application.ActivePrinter = STDprinter
' change back to standard printer
End Sub