Posljednja promjena  31.08.2005

 

Prilikom izvođenja tiskanja korisniku se daje mogučnost izbora postavki i parametara
tiskanja tako da kompletnu odgovornost i kontrolu tiskanja preuzima korisnik.

Sub print_dialog()
Application.Dialogs(xlDialogPrint).Show
End Sub

Sub printersetup_dialog()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

Sub printtitles_dialog()
Application.Dialogs(xlDialogSetPrintTitles).Show
End Sub

Sub PrintPreview_dialog()
Application.Dialogs(xlDialogPrintPreview).Show
End Sub

Sub PageSetup_dialog()
Application.Dialogs(xlDialogPageSetup).Show
End Sub

Back to Top

Ovaj makro služi za tiskanje područja od A1 do kolone G zadnji red plus jedan red. G kolona je promjenjiva na način da
može biti i H, I itd u ovisnosti od raspona baze po kolonama.
Ovaj makro je praktičan zato što se tiskanje ne nastavlja na ostale dijelove lista već samo tiska zadano područje.

Sub kontrolirano_tiskanje()
             'odrediti zadnji red teksta
zadnjiRed = Range("A65536").End(xlUp).Row
            'omeđiti prostor koji je određen za tiskanje
            'to znači :označi područje od a1 do g zadnji red plus jedan red
Range("A1", "G" & zadnjiRed + 1).Select
             'područje printaj u jednoj kopiji po redosljedu stranica
Selection.PrintOut copies:=1, collate:=True
             'prebaci se na a1
Range("a1").Select
End Sub

 

Prije pokretanja makroa označite prvu ćeliju područja kojeg želite tiskati (u ovom slučaju A1)
ne smije biti praznih prostora u prvom redu i prvoj koloni do kraja područja

 

 

 

 

 

Sub tiskanje_od_activne_celije_tekuce_podrucje()'tiskanje sa PrintArea
Range("A1").Select
Range(Selection.End(xlToRight), Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub


Sub tiskanje_od_activne_celije_tekuce_podrucje2() 'tiskanje sa PrintArea
Range("A1").CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

Back to Top

 

Sub putanja_dokumenta()
ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName 'putanja aktivne knjige
End Sub


Sub direktorij_list()
ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName & "- " & "&A" 'putanja aktivne knjige i lista
End Sub


Sub Direktorij_i_nesto_vise() 'šta napisati u zaglavlju i podnožju stranice
With ActiveSheet.PageSetup
       .CenterHeader = "" 'ništa
       .RightHeader = "&D" 'ovo ja datum
       .LeftFooter = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'putanja dokumenta         trenutno aktivnog
       .LeftHeader = "Stranice od &P do &N" 'n-ta stranica od koliko ih ima
End With
End Sub


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName & "\" & ActiveSheet.Name
End Sub


Sub velicina_slova()
With ActiveSheet.PageSetup
       .RightFooter = "&08" + ActiveWorkbook.FullName
End With
End Sub


Sub velicina_i_vrsta_slova()
ActiveSheet.PageSetup.RightFooter = "&""Arial""&07" & ActiveWorkbook.FullName & "- " & "&A" 'sa vrstom i veličinom slova
End Sub

Back to Top