• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Tisk - makro

Zaslal/a Ontik 23.5.2018 9:50

Ahoj všem,
prosím, mohl by mi někdo poradit....
mám makro pro tisk s náhledem před tiskem, kde si vyberu tiskárnu, zvolím že chci tisknout jednostranně a vždy mi to vytiskne oboustranně, což je špatně.
Předem moc děkuji

Sub Tisk_nářadí()
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 = 83 To 122
If Not IsEmpty(A(i - 82, 1)) And IsNumeric(A(i - 82, 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

Zaslat odpověď >

---

elninoslov(23.5.2018 10:27)#040438

Na fóre MS odpísali, že to v Exceli nejde, a treba sa pokúsiť to vyriešiť cez API, alebo ručne.
Na stackoverflow je takýto kód, treba poskúšať. Ja duplex nemám.

Každopádne treba pohľadať deklarácie použitých API pre jednotlivé kombinácie Win64/32, Office64/32, VBA6/7, teda PtrSafe, LongPtr, LongLong, a správne podmienene deklarovať cez "#If", a to sa chce málo komu, lebo na LongPtr a LongLong vs Long nieje univerzálne pravidlo pre každú API :(.
Aspoň mne sa teda nepodarilo úspešne sprevádzkovať (bez nepredvídateľného padania) všetky API pomocou pravidiel.

EDIT: Prípadne možno by šlo urobiť makro na posielanie strán na tlač po jednej, podľa PageBreak.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse