[ gogi100 @ 12.09.2018. 07:33 ] @
imam sledeci kod u VBA 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 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? |