Code:
With wsKarnet.PageSetup
.LeftMargin = 0.2
.RightMargin = 0.2
.TopMargin = 110
.FooterMargin = 0.4
.HeaderMargin = 0.2
.Orientation = xlLandscape
.CenterHorizontally = True
.PaperSize = xlPaperA4
.LeftHeaderPicture.Filename = "D:\grb.jpg"
.LeftHeaderPicture.Width = 20
.LeftHeaderPicture.Height = 33
.LeftHeader = "&G&10&""Times New Roman""" & Chr(13) & ToCiril(leviheader1) & Chr(13) & ToCiril(leviheader2) & Chr(13) & ToCiril(leviheader3) & Chr(13) & ToCiril(leviheader4) & Chr(13) & ""
.CenterHeader = "&10&""Times New Roman""" & Chr(13) & Chr(13) & Chr(13) & ToCiril(centarheader1) & Chr(13) & ToCiril(centarheader2) & " " & ToCiril(sektor) & Chr(13) & ToCiril(centarheader3) & " " & ToCiril(mesec) & Chr(13) & ""
.RightFooter = "&10&""Times New Roman""" & ToCiril(desnifooter) & Chr(13) & ToCiril(ovllice) & Chr(13) & ""
.LeftFooter = "&10&""Times New Roman""" & ToCiril(levifooter) & Chr(13) & ToCiril(referent) & Chr(13) & ""
.CenterFooter = "&7&""Times New Roman""" & ToCiril(centarfooter1) & Chr(13) & ToCiril(centarfooter2) & Chr(13) & ToCiril(centarfooter3) & Chr(13) & ToCiril(centarfooter4) & Chr(13) & ToCiril(centarfooter5) & Chr(13) & ToCiril(centarfooter6) & Chr(13) & ToCiril(centarfooter7) & Chr(13) & ToCiril(centarfooter8) & Chr(13) & ""
' .RightFooter = “Sheet: &A”
End With
With wsKarnet.PageSetup
.LeftMargin = 0.2
.RightMargin = 0.2
.TopMargin = 110
.FooterMargin = 0.4
.HeaderMargin = 0.2
.Orientation = xlLandscape
.CenterHorizontally = True
.PaperSize = xlPaperA4
.LeftHeaderPicture.Filename = "D:\grb.jpg"
.LeftHeaderPicture.Width = 20
.LeftHeaderPicture.Height = 33
.LeftHeader = "&G&10&""Times New Roman""" & Chr(13) & ToCiril(leviheader1) & Chr(13) & ToCiril(leviheader2) & Chr(13) & ToCiril(leviheader3) & Chr(13) & ToCiril(leviheader4) & Chr(13) & ""
.CenterHeader = "&10&""Times New Roman""" & Chr(13) & Chr(13) & Chr(13) & ToCiril(centarheader1) & Chr(13) & ToCiril(centarheader2) & " " & ToCiril(sektor) & Chr(13) & ToCiril(centarheader3) & " " & ToCiril(mesec) & Chr(13) & ""
.RightFooter = "&10&""Times New Roman""" & ToCiril(desnifooter) & Chr(13) & ToCiril(ovllice) & Chr(13) & ""
.LeftFooter = "&10&""Times New Roman""" & ToCiril(levifooter) & Chr(13) & ToCiril(referent) & Chr(13) & ""
.CenterFooter = "&7&""Times New Roman""" & ToCiril(centarfooter1) & Chr(13) & ToCiril(centarfooter2) & Chr(13) & ToCiril(centarfooter3) & Chr(13) & ToCiril(centarfooter4) & Chr(13) & ToCiril(centarfooter5) & Chr(13) & ToCiril(centarfooter6) & Chr(13) & ToCiril(centarfooter7) & Chr(13) & ToCiril(centarfooter8) & Chr(13) & ""
' .RightFooter = “Sheet: &A”
End With
kad ga primenim dobijam prikaz kao na slici zakacenoj uz mejl. Pitanje, da li postoji mogucnost da se slika odmakne od leve margine, recimo da bude na sredini? Isto tako i tekst?