< návrat zpět

MS Excel

Téma: tlac 2 tabuliek rss

Zaslal/a ivana1 7.9.2024 23:06

potrebujem tlacit pomocou 2 makier 2 rozne tabulky s moznostou nahlade tlace pred tlacou je mozne nieco vymysliet kde uz iba zadam pocet kopii

Tabulka 1: C5:M30
Tabulka 2: E13:I50

Zaslat odpověď >
€Ł мσşqμΐτσ(16.9.2024 8:56)#056859
€Ł мσşqμΐτσ
Dobrý den,
zkuste tohle vložit do modulu VBA.

pro tabulku 1: C5:M30
Sub Tisk_Tab1()
Dim pocetKopii As Integer

' Zadejte počet kópií
pocetKopii = InputBox("Zadajte počet kópií pre tabuľku 1:", "Počet kópií")

If IsNumeric(pocetKopii) And pocetKopii > 0 Then
With ActiveSheet.PageSetup
.PrintArea = "$C$5:$M$30"
End With
' Zobrazení náhledu tisku
ActiveSheet.PrintOut Preview:=True, Copies:=pocetKopii
Else
MsgBox "Prosím, zadajte platné číslo kópií.", vbExclamation
End If
End Sub


pro tabulku 2: E13:I50
Sub Tisk_Tab2()
Dim pocetKopii As Integer

' Zadejte počet kópií
pocetKopii = InputBox("Zadajte počet kópií pre tabuľku 2:", "Počet kópií")


If IsNumeric(pocetKopii) And pocetKopii > 0 Then
With ActiveSheet.PageSetup
.PrintArea = "$E$13:$I$50"
End With
' Zobrazení náhledu tisku
ActiveSheet.PrintOut Preview:=True, Copies:=pocetKopii
Else
MsgBox "Prosím, zadajte platné číslo kópií.", vbExclamation
End If
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje