MS Excel

Téma: Makro - tisk na síťovou tiskárnu

Zaslal/a Zpita 18.10.2019 9:09

Dobrý den všem,
pomohl by mi někdo upravit makro napsané níže, tak aby mi vždy tisklo na konkrétní síťovou tiskárnu. Tiskne se z různých PC a pokud má někdo nastavenou jako výchozí jinou tiskárnu, tak mi vždy rozhážou nastavení tisku. Tisknu listy 5 až 44 oboustranně.
Moc děkuji.

Sub Tisk_ZL()
Dim A(), Pocet As Integer, Listy() As String, i As Byte

Pocet = -1
With ThisWorkbook
ReDim A(1 To 40, 1 To 1)
A = .Worksheets("Nástup prac.").Cells(3, 1).Resize(40).Value2

For i = 5 To 44
If Not IsEmpty(A(i - 4, 1)) And IsNumeric(A(i - 4, 1)) Then
Pocet = Pocet + 1
ReDim Preserve Listy(Pocet)
Listy(Pocet) = .Worksheets(i).Name
End If
Next i

If Pocet > -1 Then
'.Worksheets(Listy).Select
'Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
.Worksheets(Listy).PrintPreview
End If
End With
End Sub