[kaupmees]

Tere,

Proovisin teha taha aga ei tööta:

Sub QuickChangePrinter()
Dim sNewPrinter As String
sNewPrinter = ActivePrinter
ActivePrinter = "Kyocera color"
Application.PrintOut Filename:=""
ActivePrinter = sNewPrinter
End Sub

Vaja et peale nupu vajutust prindiks konkreetsesse printerisse, see on võrguprinter aga mitte põhiprinter.

[alfreedo]

kaupmees.

[kaupmees]

Tere,

Soov on teha vba koodi nupule, nii et nupu vajutamisega saaksin välja printida teatud leheküljed, mitte kõik.
Võrguprinter mille nimi on "Kyocera color". Samas "Kyocera color" ei ole vaikeprinter.

[pmq]

[kaupmees]

printimisega on nüüd koodiga OK.
Nüüda aga enne pintimist on vaja et VBA koodiga muuta pivotis üks filtri väärtus.

Nimelt iga nädal on vaja printida uus info välja.
Näiteks nädal 46 on vaja printida välja eelmise nädala kokkuvõtte.
Selleks peaks filtri väärtus olema 45.
Sooviks nii et esilehel kus on nupp "print" kõrval tühi lahter kus kirjas nädala nuber mida soov printida n:A1=45
Siis print nuppu vajutades muudaks kõigepealt ära pivot tabelis filtir väärtuse ja asendaks selle selle numbriga mis on kirjutadud A1 kasti.

Hetkel kasutan koodi:
Sheets("CRP-Graafikud").Select
ActiveSheet.PivotTables("PivotTable15").PivotFields("W").ClearAllFilters
ActiveSheet.PivotTables("PivotTable15").PivotFields("W").CurrentPage = "45"
Sheets("Index").Select

Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "Kyocera color on Ne05:"
ActiveSheet.PrintOut
Application.ActivePrinter = STDprinter
End Sub

Kuna neid lehti ja Pivot tabeleid ja graafikuid palju siis ei sooviks iga kord üks haaval muuta.